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// CoLCBroker.h : Declaration of the CoLCBroker 

#ifndef LCBROKER H 
#define LCBROKER_H_ 

#include " resource . h" // main symbols 

#include "errorMessage . h" 
#include "xcLCBroker . h" 
#include " ISLXmlCmds Impl . h" 

///////////////////////////////////////////////////////////////////////////// 
_COM_SMARTPTR_TYPEDEF { ISLXmlCmds, _uuidof { ISLXmlCmds ) ) / 

///////////////////////////////////////////////////////////////////////////// 

// CoLCBroker 

class CSdoConnection; 

class CXmlDocument / 

class CIdServer; 

class CIdGenAudit; 

class CIdGenCpi; 

class CIdGenEncounter/ 

class CIdGenUnregUser; 

class ATL_NO_VTABLE CoLCBroker : 

public CComObjectRootEx<CComMultiThreadModel> / 

public CComCoClass<CoLCBroker, &CLSID_LCBroker>, 

public ISupportErrorInfoImpl<&IID_ISLXmlCmds>, 
// public ISLXmlControl2Impl<CxcLCBrokerFactory> 

public IDispatchImpl<ISLXmlCmdsImpl<CxcLCBrokerFactory>, &IID ISLXmlCmds, & 

LIBID_LCBROKERLib> 

{ 

public : 

CoLCBroker ( ) 

{ 

} 

HRESULT FinalConstruct ( ) ; 
void FinalRelease ( ) ; 

DECLARE REGISTRY RESOURCE ID ( I DR LCBroker) 
DEC LARE_NOT_AGGRE GATAB LE ( Co LCBro ke r ) 

DECLARE_PROTECT_FINAL_CONSTRUCT ( ) 

BEGIN COM MAP (CoLCBroker) 

COM INTERFACE ENTRY ( ISLXmlCmds ) 

COM INTERFACE ENTRY ( I Support Er rorlnf o ) 

COM INTERFACE_ENTRY (IDispatch) 
EN D_COM_MAP ( ) 

// data members 
protected: 

ISLXmlControl2Ptr m spSearcher; 

CSdoConnection * m pconnSdo; 

CIdServer * m pserverld; 

CIdGenAudit + m pidgenAudit; 

CIdGenCpi + m_pidgenCpi; 

CIdGenEncounter * m_pidgenEncounter; 

CIdGenUnregUser * m_pidgenUnregUser ; 

CErrorMessage m_emLast; 

string m_strAlias; 
string m_st rHostName / 



// ISLXmlCmds override 
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virtual bool execXmlCmd (CXml Document & docXmlCmd, CXmlDocument + * ppdocXmlResult , string &tf 
strError) ; 

// internal C++ interface 
public : 

bool setConnection (CSdoConnection * pconnSdo); 

void destroyConnection ( ) ; 

ISLXmlControl2* ge tSearche r ( ) ; 
CSdoConnection* getConnect ion ( ) ; 

CIdGenAudit* getAudit IdGenerator {){ return m pidgenAudit; } 

CIdGenCpi* getCpildGenerator {){ return m pidgenCpi; } 

CIdGenEncounter* getEnddGenerator (){ return m pidgenEncounter; } 

CIdGenUnregUser* getUnregUserldGenerator (){ return m pidgenUnregUser; } 

void getLastError (string & strError ) {m_emLast . getError ( strError ); } 

CErrorMessage& get LastError (){ return m emLast ; } 

void setAlias (string strAlias) { m_strAlias = strAlias; } 

void getDef aultAlias ( ) ; 

const char* getHostName ( ) { return m_st rHostName . c_st r ( ) ; } 



#endif // LCBROKER H 
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/*//////////////////////////////////////////////////////// 
1 1 1 III! II I III II 11/11 lll/l/lllll l/ll I II III 1 1 III llllllll II 

Encrypt/ Decrypt Rotines 
//////////////////////////////////////////////////////// 

Dependencies : 

#include <string> 
#include <list> 
#include <fstream> 
#include <strstream> 
using namespace std; 



//////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////// */ 



#ifndef _ENCRYPTOR_H 
#define _ENCRYPTOR_H 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

class CEncryptor 
{ 

protected: 

string m_st rDe fault Key; 

short AsciiHexToInt ( LPCTSTR pszString, int* pnAnswer ); 
short AsciiHexToInt ( strings strln, int* pnAnswer ) 

{return AsciiHexToInt (strln . c_str () , pnAnswer);} 

public: 

CEncryptor ( ) ; 

bool Encrypt (LPCTSTR pszln, LPCSTR psKey, string & strOut); 
bool Decrypt (LPCTSTR pszln, LPCSTR psKey, string & strOut); 

}; 

#endif // ENCRYPTOR H 
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#ifndef errorMessage h 
#define _errorMessage_h 

class CErrorMessage : public std: :strstream 
{ 

public : 

void appendError (_com_error & e) 
{ 

string strError « (char *) e . Description () ; 
HRESULT hr = e. Error (); 

*this « "COM Error = [" « strError « "]. hr = [" « std: :hex « hr « "]."; 
return; 

} 

void appendError (HRESULT hr) 
{ 

*this « "hr = [" « std::hex « hr « std::dec « "}"; 
return; 

} 

void appendError (CErrorMessage & em) 
{ 

appendError ( (std: : strstream &) em); 

} 

void appendError (std: : strstream & strmError) 
{ 

strmError « ' \0 * ; 

*this « strmError . str () ; 

strmError. freeze (false) ; 

} 

void setError (_com_error & e) 
{ 

clear ( ) ; 
appendError (e ) ; 

} 

void setError (HRESULT hr) 

{ 

clear ( ) ; 

appendError (hr) ; • 

} 

void setError ( LPCSTR pszError) 
{ 

clear ( ) ; 

*this « pszError; 

} 

void setError (CErrorMessage & em) 
{ 

clear () ; 

appendError (em) ; 

} 

void getError (string & strError) 
{ 

*this « '\0' ; 
strError « str ( ) ; 
freeze (false ) ; 
return; 

} 

string getError () 
{ 

string strError; 
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*this « '\0'; 
strError = str ( ) ; 
freeze ( false ) ; 
return strError; 

} 

void getError (std: :strstream & strmError) 
{ 

+this « '\0 f ; 
strmError « str(); 
freeze ( false ) ; 
return; 

} 

void clear ( ) 
{ 

seekp ( 0) ; 

} 

}; 



#endif 
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#ifndef idGen h 
tdefine _idGen_h 

#include "idGenBase . h" 
#include "rs_audit . h" 

class CIdGenAudit : public CIdGenerator 
{ 

protected : 

Crs_audit m_rsAudit; 

public : 

CIdGenAudit (CIdServer * pidServer); 

virtual long gene rate Id ( DWORD dwMsgNo, DWORD dwUserld = 0, LPCSTR pszHost = NULL, i 
LPCSTR pszAppl = NULL) ; 

}; 

class CIdGenCpi : public CIdGenerator 
{ 

public : 

CIdGenCpi (CIdServer *pidServer) ; 
virtual long generateld () ; 

}; 



class CIdGenEncounter : public CIdGenerator 
{ 

public : 

CIdGenEncounter (CIdServer *pidServer) / 
virtual long generateld () ; 

}; 

class CIdGenUnregUser : public CIdGenerator 
{ 

public : 

CIdGenUnregUser (CIdServer *pidServer ) ; 
virtual long generateld () ; 

}; 



#endif 
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#ifndef _ISLXmlCmds_h 
tfdefine _I SLXmlCmds_h 

# include "xml Par ser . h M 
# include "xmlCommand . h" 

ttifdef _DEBUG 
#define _DUMP_XML 
# end if 

/* 

This file is a templated implementation of the ISLXmlCmds interface. The template ^ 
argument 

should be a class derived from CXmlCommandFactory . The class will call the command 
factory to 

instantiate command processors requested by callers, and call the execute!) method on 
those 

processors . 

V 
/* 

XCF = xml command factory 
*/ 

template<class XCF> 

class ISLXmlCmdsImpl : public ISLXmlCmds 
{ 

public : 

///////////////////////////////////////////////////////////////////////// 
// ISLXmlCmds interface 

STDMETHODIMP Exec (VARIANT vXMLCmd, VARIANT * pvError, VARIANT * pvXMLResul ts ) ; 
STDMETHODIMP ExecSet (VARIANT vXMLCmd, VARIANT * pvError, VARIANT * pvXMLResul ts ) ; 
STDMETHODIMP ExecTestO; 

protected : 

///////////////////////////////////////////////////////////////////////// 
// internal C++ interface ( over ridable ) 

virtual bool execXmlCmdSet (BSTR bstrXMLCmd, BSTR * pbstr Results , BSTR * pbstrError); 
virtual bool execXmlCmd ( BSTR bstrXMLCmd, BSTR * pbs trResul t s , BSTR * pbstrError) ; 
virtual bool execXmlCmd ( CXml Document & docXmlCmd, CXmlDocument ** ppdocXmlResult , 
string & strError); 

protected : 

// these variables should be set by the implementing coclass 

bool m_f Connected; // true if coclass is connected to nT 

database 

bool m_f CheckConnRequir ed ; // true performs a check for dbconnection 

requirement . 

CComOb j ectRoot + m_pcoOwner; // the this pointer of the coclass 

CLogBase * m_plogXml; //a place to dump debug xml 

) ; 

///////////////////////////////////////////////////////////////////////// 
// implementation 

///////////////////////////////////////////////////////////////////////// 

///////////////////////////////////////////////////////////////////////// 
// ISLXmlControl interface 

FUNCTION : ExecText 

CLASS : ISLXmlCmdsImpl<XCF> 

DESCRIPTION: Takes an XML command, executes it, and returns the results of the 
command in a BSTR . 
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PARAMETERS : bstrXMLCmd - the XML command to execute 

pbstrError - a pointer to BSTR that receives a verbose error message 

pbstrXMLResults - a pointer to a BSTR that receives the results 
of the XML command in XML. 

RETURNS: S_OK, if an error occurrs the out par am pbstrError will be valued. 

****+****+***+*+*******+***^ 
template<class XCF> 

STDMETHODIMP I SLXmlCmds Impl<XCF> :: Exec ( VARIANT vXMLCmd, VARIANT * pvError, VARIANT * 
pvXMLResults) 

{ 

BSTR bstrError - NULL; 
BSTR bstrResults = NULL ; 

Variantlnit (pvError) ; 
Variantlnit (pvXMLResults) ; 

_bstr_t bstrXMLCmd (vXMLCmd) ; 

bool fSuccess = execXmlCmd (bstrXMLCmd, &bs trResul t s , PbstrError); 

V_VT (pvError) - VT_BSTR; 
V_BSTR (pvError ) - bstrError; 
V_VT (pvXMLResults) = VT_BSTR; 
V_BSTR (pvXMLResults) = bstrResults; 

return S_OK; 

} 

FUNCTION: ExecSet 

CLASS : ISLXmlCmdsImpl<XCF> 

DESCRIPTION: Takes a set of XML commands and executes each one in succession. 

The results from each command is adopted by the result's root. The 
resulting xml text is returned in a BSTR . 

PARAMETERS: bstrXMLCmd - The command set to execute. 

ex: < c omman d s e t > 

<command name = " someCommand " > 

<parm name=" someParm">99</parm> 
< /comma nd> 

</commandse t> 



pbstrError - a pointer to BSTR that receives a verbose error message 

pbstrXMLResults - a pointer to a BSTR that receives the results 
of the XML command in XML. 



RETURNS: S_OK, if an error occurrs the out param pbstrError will be valued. 
template<class XCF> 

STDMETHODIMP ISLXmlCmdsImpl<XCF> : : ExecSet (VARIANT vXMLCmd , VARIANT *■ pvError, VARIANT 
pvXMLResults) 

{ 

BSTR bstrError = NULL; 
BSTR bstrResults = NULL; 
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Variantlnit (pvError) ; 
Variantlnit (pvXMLRe suits ) ; 

_bstr_t bstrXMLCmd ( vXMLCmd) ; 

bool fSuccess = execXmlCmdSe t (bstrXMLCmd, &bstrResults , PbstrError); 

V_VT (pvError ) = VT_BSTR; 
V_BSTR (pvError ) = bstrError; 
V_VT (pvXMLResults) = VT_BSTR; 
V_BSTR (pvXMLResults) = bstrResults; 

return S_OK; 

} 

FUNCTION: ExecTest 

CLASS : ISLXmlCmdsImpl<XCF> 
DESCRIPTION: Can be used for quick and dirty testing. 

template<class XCF> 

STDMETHODIMP I SLXmlCmd s Impl<XCF> : :ExecTest{) 
{ 

CLogMsg msgTes t ( "Hey from ExecTest") ; 
msgTest . Post (_logFile) ; 

HRESULT hr - S_OK; 
return hr ; 

} 

///////////////////////////////////////////////////////////////////////// 
// internal C++ interface 

+ + + + + '+ + + + + + + ^ + + + ^+ + 4+ +^ 

FUNCTION : execXmlCmdSe t 
CLASS 
DESCRIPTION 



I SLXmlCmd s Imp 1 <XCF> 

Executes each command contained in an xml command set. The xml is 
in the following format. 

<commandse t> 

<command name=" someName "> 

<parm name-" someName ">parmValue< /pa rm> 
</command> 

</commandset> 

PARAMETERS: bstrXMLCmd - ESTR containing the xml command set. 

pbstrResults - pointer to a BSTR that will receive the results of 
the command. If NULL , then results are expected to 
go into the following parameter. 

pbstrError - pointer to a BSTR that will receive a verbose message 
if some error occurrs. 

RETURNS: true on success 
template<class XCF> 

bool ISLXmlCmds Impl<XCF> : : execXmlCmdSet (BSTR bstrXMLCmd, BSTR * pbstrResults, BSTR 
pbstrError ) 
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I 

bool fSuccess = true; 
string strError; 

string strXmlCmds = (char *) _bst r_t ( bstrXMLCmd) ; 

#ifdef _DUMP_XML 
if (m_plogXml) 
{ 

CLogMsg msg; 

msg . Post ( *m_plogXml ) ; 
msg . Clear ( ) ; 

msg << "Command - [ " << s trXmlCmds . c__s tr ( ) << " ] " ; 
msg . Post ( *m_plogXml ) ; 

} 

flendif 

// parse the xml 

CXml Document docXml ( s trXmlCmds . c_str ( ) ) ; 

if (! docXml. isReadyO ) 

{ 

string strParseError; 

docXml .getParserError (strParseError) ; 
strError = "Parse of XML failed. Error = ["; 
strError +- strParseError; 
strError += "] " ; 
fSuccess = false; 

} 

// make sure it is a valid command set 

CXmlElement elRoot; 

docXml . get Root (& elRoot ) ; 

string strTag; 

elRoot . getTag (strTag) ; 

if ( stricmp ( strTag . c_str () , " commandse t " ) \~ 0) 
{ 

strError = "Document tag must be \ "commandset \ " . " ; 
fSuccess = false; 

} 

// each child of the root should be a command, execute each one 
CXmlDocument + pdocResults - NULL; 
if (fSuccess) 
{ 

pdocResults = new CXmlDocument ( "<commandse t /> ") ; 
CXmlElement elCmd; 

bool fCmd = elRoot . get Firs t ( &elCmd) ; 

while (fCmd && fSuccess) 

{ 

docXml . pushCurrent ( &elCmd ) ; 

fSuccess = execXmlCmd (docXml , &pdocResul ts , strError) ; 

docXml . popCurrent ( ) ; 

fCmd = elRoot . getNext ( &elCmd) ; 

} 

} 

// not all commands return results 
if (fSuccess && pdocResults != NULL) 
{ 

string strResults; 

pdocResult s->getXML (strResults) ; 

^pbstrResults = _bstr__t ( strResults . c_str {)). copy () ; 



tfifdef DUMP XML 
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if (m_plogXml) 
{ 

string strDump; 
pdocResults->getXML { strDump) ; 
CLogMsg msg; 

msg << "\n\nResults = [\n" << s tr Dump . c_s tr { ) << "]"; 
msg . Post ( *m_plogXml ) ; 

) 

#endif 

} 

// report any error information 

if ( strError . size { ) ) 

{ 

*pbstrError = _bstr_t ( strError . c_str ()}. copy () ; 

#ifdef _DUMP_XML 
if (m_plogXml) 
{ 

CLogMsg msg; 

msg << "\n\nError = [ << strError << " ] " ; 
msg . Post { *m_plogXml ) ; 

} 

#endif 

} 

// clean up 

if (pdocResults != NULL) 
delete pdocResults; 

return fSuccess; 

} 

FUNCTION : execXmlCmd 

CLASS : ISLXmlCmdsImpl<XCF> 

DESCRIPTION: Executes one XML command. The XML is in the following format. 

<command name=" someName "> 

<parm name= "someName ">parm value</parm> 
</command> 



PARAMETERS : bstrXMLCmd ~ BSTR containing the xml command. 

pbstrResults - pointer to a BSTR that will receive the results of 
the command. If NULL, then results aie expected to 
go into the following parameter. 

pbstrError - pointer to a BSTR that will receive a verbose message 
if some error occurrs. 

RETURNS: true on success 
template<class XCF> 

bool ISLXmlCmdsImpl<XCF> : : execXmlCmd (BSTR bstrXMLCmd, BSTR * pbstrResults, BSTR * 
pbstrError ) 

{ 

bool fSuccess = true; 
string strError; 

string strXmlCmd = (char *) _bstr_t (bstrXMLCmd) ; 
#ifdef DUMP XML 
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if (m_plogXml ) 
{ 

CLogMsg msg; 

msg . Post ( + m_plogXml ) ; 
msg . Clear ( ) ; 

msg << "Command = [" << strXmlCmd . c_s tr ( ) << " ] " ; 
msg . Post { *m_plogXml } ; 

} 

flendif 

// parse the xml 

CXml Document docXml ( strXmlCmd . c_str ( ) ) ; 

if ( ! docXml. isReadyO } 

{ 

string str ParseError ; 

docXml . get Parser Err or ( str Par seErr or ) ; 
strError ~ "Parse of XML failed. Error = ["; 
strError += str ParseError ; 
strError + = "]"; 
fSuccess = false; 

} 

// execute the command 
CXmlDocument * pdocResults = NULL; 
if (fSuccess) 

fSuccess = execXmlCmd (docXml , spdocResul ts , strError) ; 

// not all commands return results 
if (fSuccess && pdocResults != NULL) 
{ 

string strResults; 
pdocResults->getXML (strResults) ; 

*pbstrResul ts ~ _bstr_t (strResults . c__str ()). copy () ; 

#ifdef _DUMP_XML 
if (m_plogXml) 

{ 

string strDump; 

pdocResul ts->getXML (strDump) ; 
CLogMsg msg; 

msg << " \n\nResults = [\n" << str Dump . c_str ( ) << "]"; 
msg . Post ( *m_plogXml ) ; 

} 

#endif 

} 

// report any error information 

if ( st rError . size ( ) ) 

{ 

+ pbstrError * _bstr_t ( strError . c_str {)). copy () ; 

ftifdef _DUMP_XML 
if (m_plogXml ) 
I 

CLogMsg msg ; 

msg << "\n\nError = [" << strError << "]"; 
msg . Post ( *m_plogXml ) ; 

) 

#endif 

} 

// clean up 

if (pdocResults != NULL) 
delete pdocResults ; 
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return f Success ; 

} 

FUNCTION: execXmlCmd 

CLASS : ISLXmlCmdsImpl<XCF> 

DESCRIPTION: description text here. 

PARAMETERS: docXmlCmd - xml document containing the command at the current node 

ppdocXmlResult - a pointer to a pointer of the result xml. If this parm 
points to a null, then a new xml doc is created for the 
caller. If this parm points to an xrnl document, then the 
results are added as a child node to that document. 

strError - receives verbose error information. 

RETURNS: true on success 

template<class XCF> 

bool ISLXmlCmdsImpl<XCF> : : execXmlCmd (CXmlDocument & docXmlCmd, CXml Document * + 
ppdocXmlResult , 

string & strError) 



{ 



bool fSuccess = true; 

// get xml command processor 
XCF xcFactory; 

CXmlCommand * pcmdXml - xcFactory . createCommand (& docXmlCmd ) ; 

if (pcmdXml == NULL) 

{ 

xcFactory . getLastError (strError) ; 
fSuccess = false; 

) 

// make sure we have db connection if command requires it 

if (fSuccess m_f CheckConnRequired) 

{ 

if (pcmdXml->isConnectionRequired ( ) ! m_f Connected ) 

{ 

strError = "There is no ADO connection. \ "openDa tabase \ " must be executed 

first. "; 

fSuccess = false; 

} 

} 

// execute the command 

if (fSuccess) 

{ 

// give command access to the coclass 
pcmdXml->setOwner (m_pcoOwner ) ; 

if (fSuccess = pcmdXml->execCommand ( ) ) 
{ 

if (*ppdocXmlResult != NULL) 
{ 

CXmlElement elRoot; 

CXmlDocument * pdoc = pcmdXml->ge tResul ts ( ) ; 

if (pdoc != NULL) 

{ 

pdoc->getRoot (selRoot) ; 

(* ppdocXmlResult) ->addChild (&elRoot) ; 

} 
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*ppdocXmlResult = pcmdXml->getPxesul ts ( true ) ; 

} 

else 

pcmdXml->getLastError (strError) ; 

} 

// clean up 
delete pcmdXml ; 

return fSuccess; 

} 



flendif 
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// LCBroker . cpp : Implementation of WinMain 



// Note: Proxy/Stub Information 

// To build a separate proxy/stub DLL, 

// run nmake -f LCBr okerps . mk in the project directory. 



# include "stdaf x . h" 

#include "resource . h " 

flinclude <initguid.h> 

#include "LCBroker . h M 



Jfinclude "LCBroker_i . c " 

#include <stdio.h> 
^include "CoLCBroker . h " 
#include "xmlCommand . h" 
^include r, xml Par ser . h M 
^include "registryDB. h" 

CServiceModule Module; 



/////////////////////////////////////////////////// 
//Global decalrations 



CLogNTEvents _logEvent s ( "Li f eclinic Broker") ; 

CLogFile _logFile ( "c : \\ LCBroker . log" ) ; 

CLogDebug __logDebug; 

CLogMulti _logAll; 

string __s tr Def aultAl ias ; 

/////////////////////////////////////////////////// 



BEGIN_OBJECT_MAP (ObjectMap) 

OBJECT_ENTRY ( CLS I D__LCBroker , CoLCBroker) 
END OBJECT MAP ( ) 



LPCTSTR FindOneOf (LPCTSTR pi, LPCTSTR p2) 
{ 

while (pi != NULL && + pl != NULL) 
{ 

LPCTSTR p = p2; 

while (p ! = NULL -p != NULL) 
i 

if (-pi == *p) 

return CharNext ( pi ) ; 
p = CharNext (p) ; 

} 

pi = CharNext (pi) ; 

} 

return NULL; 



// Although some of these functions are big 
used once 



they are declared inline since they are only 



inline HRESULT CServiceModule :: Regis terServer ( BOOL bRegTypeLib, BOOL bService) 
{ 

HRESULT hr - Colni tialise (NULL) ; 
if ( FAILED (hr ) ) 
return hr ; 



// Remove any previous service since it may point to 
// the incorrect file 
Unins tall ( ) ; 



// Add service entries 

UpdateRegistryFromResource ( IDR_LCBroker , TRUE) ; 
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// Adjust the AppID for Local Server or Service 
CRegKey keyAppID; 

LONG IRes = keyAppI D . Open ( HKEY_CLASSES_ROOT , _T ( "AppID" ) , KEY_WRITE); 
if {IRes != ERROR_SUCCESS) 
return IRes; 

CRegKey key; 

IRes = key .Open (keyAppID, _T ( " { D9DCC3 F4 -DE3C- 1 Id3-B8 7B-8E0DB3000OO0 } " ) , KEY__WRI TE ) ; 
if (IRes ERROR_SUCCESS) 

return IRes; 
key . Delete Value (_T ( "Local Service" ) ) ; 

if (bService) 
{ 

key . SetValue {_T ( "SLMD LCBroker" ), _T ( "LocalService" ) ) ; 
key . SetValue (_T ( "-Service" ) , _T ( "Service Parameters" ) ) ; 
// Create service 
Install ( ) ; 

} 

// Add object entries 

hr ~ CComModule : : Regis ter Server (bRegTypeLib) ; 

CoUnini tialize ( ) ; 
return hr; 

} 

inline HRESULT CServiceModule :: Unregis terServer ( ) 
I 

HRESULT hr = Col nitialize (NULL) ; 
if ( FAILED ( hr ) ) 
return hr; 

// Remove service entries 

UpdateRegistryFromResource ( I DR_LCBr oker , FALSE) ; 
// Remove service 
Uninstall { ) ; 

/ / Remove object entries 
CComModule : : Unregis ter Server (TRUE ) ; 
CoUnini tialize ( ) ; 
return S OK; 



inline void CServiceModule :: Init (_ATL_OB JMAP_ENTRY* p, HINSTANCE h, UINT nServiceNamelD, * 
const GUID* plibid) 

{ 

CComModule :: Init (p, h, plibid); 
m_bService = TRUE ; 

Loads tr ing (h , nServiceNamelD, m_s zSer viceName , sizeof (rn^szServiceName) / sizeof ^ 
(TCHAR) ) ; 

// set up the initial service status 
m__hServiceStatus = NULL; 

m_status.dwServiceType = SERVICE_WIN32_OWN_PROCESS ; 

m_status .dwCurrentState - SERVICE_STOPPED; 

m_s tatus . dwControlsAccepted = SERVICE_ACCEPT_STOP ; 

m_status . dwWin32ExitCode = 0; 

m_sta t us . dwServiceSpeci f icExi tCode = 0; 

m_s tatus . dwCheckPoint = 0; 

m_s tatus . dwWai tHint = 0; 

GetLocalTime ( &m_s ta t sLCBroker . m__s ys t imeS tarted ) ; 

SystemTimeToVariantTime ( &m_s tatsLCBroker . m_sys timeStar ted, &m_sta t sLCBroker . wf 
m vartimeStarted) ; 
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} 

LONG CServiceModule :: Unlock ( ) 
{ 

LONG 1 - CComModule: : Unlock () ; 
if (1 == 0 !m_bService) 

PostThreadMessage (dwThreadID, WM_QUIT, 0, 0) ; 
return 1; 

} 

BOOL CServiceModule: : Islnstalled ( ) 
{ 

BOOL bResult = FALSE; 

SC_HANDLE hSCM = : : OpenSCManager (NULL, NULL , SC_MANAGER_ALL_ACCESS ) ; 

if {hSCM != NULL) 
{ 

SC_HANDLE hService - : : OpenService (hSCM, m_s zSer vi ceName , SERVICE_QUERY_CONFIG) ; 

if (hService ! = NULL) 

{ 

bResult = TRUE; 

: : CloseServiceHandle (hService) ; 

} 

: :CloseServiceHandle (hSCM) ; 

} 

return bResult; 

} 

inline BOOL CServiceModule :: Ins tall ( ) 
{ 

if (IsInstalledO ) 
return TRUE; 

SC__HAN DLE hSCM = :: OpenSCManager (NULL, NULL , SC_MANAGER_ALL_ACCESS) ; 

if (hSCM = = NULL) 

{ 

MessageBox (NULL, _T( "Couldn't open service manager"), m_s zSer viceName , MB_OK) ; 
return FALSE; 

} 

// Get the executable file path 
TCHAR szFilePath [_MAX_PATH] ; 

: : GetModuleFileName (NULL, szFilePath, _MAX_PATH) ; 

SC_HANDLE hService = : : Crea teService ( 

hSCM, m__s zServiceName , m_s zServiceName , 
SERVICE_ALL_ACCESS, SERVICE_WIN3 2_OWN_PROCESS , 
SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL) 
szFilePath, NULL, NULL, _T ( "RPCSSXO" ) , NULL, NULL) ; 

if (hService NULL) 
I 

: :CloseServiceHandle (hSCM) ; 

MessageBox (NULL, _T ( "Couldn 1 1 create service")/ m_szSer viceName, MB_OK) ; 
return FALSE; 

} 

: : CloseServiceHandle (hService) ; 
: : CloseServiceHandle (hSCM) ; 
return TRUE; 

} 

inline BOOL CServiceModule :: Uninstall ( ) 
{ 

if ( ! Islnstalled ( ) ) 
return TRUE; 
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SC_HAN OLE hSCM - : : OpenSCManager (NULL, NULL , SC_MANAGER_ALL_ACCESS ) ; 

if (hSCM « NULL) 
{ 

MessageBox (NULL, _T ("Couldn't open service manager") , m_s zServiceName , MB_OK) ; 
return FALSE; 

} 

SC_HAN DLE hService - : : OpenSer vi ce ( hSCM, m_s zServiceName , SERVICE_STOP I DELETE); 

if (hService == NULL) 
{ 

: : CloseSer viceHandle (hSCM) ; 

MessageBox (NULL, _T ( "Couldn ' t open service"), m_s zServiceName , MB_OK) ; 
return FALSE; 

1 

SERVICE_STATUS status; 

:: Contr olService (hService, SERVICE_CONTROL_STOP, &status); 

BOOL bDelete = :: Dele teSer vice { hService ) ; 
: : CloseServiceHandle (hService) ; 
: :CloseServiceHandle (hSCM) ; 

if (bDelete) 

return TRUE; 

MessageBox (NULL, _T( "Service could not be deleted"), m_s zServiceName , MB_OK) ; 
return FALSE; 

} 

/////////////////////////////////////////////////////////////////////////////////////// 
// Logging functions 

void CSe r vi ceModul e : : Log Even t ( LPCTSTR pFormat, ...) 
( 

TCHAR chMsg [204S] ; 
va_list pArg; 

va_start (pArg, pFormat); 
_vstprint f ( chMsg , pFormat, pArg); 
va_end (pAr g ) ; 

CLogMsgEvent { HL7 EV__GENERAL_FAILURE , -1, chMsg) . Post (_logAll) ; 

) 

////////////////////////////////////////////////////////////////////////////////////////// * 
//// 

// Service startup and registration 
inline void CServiceModule :: Start ( ) 
{ 

SERVI CE_TABLE_ENTRY st [ ] = 
{ 

{ m_s zServiceName , _ServiceMain }, 
{ NULL, NULL } 

} ; 

if (m_bService ! : : Star tServiceCtrlDispatcher ( st ) ) 

{ 

m_bService - FALSE ; 

} 

if (m_bService == FALSE) 
Run { ) ; 

} 

inline void CServi ceModule :: ServiceMa in ( DWORD /* dwArgc */, LPTSTR* / + IpszArgv */) 
{ 

If Register the control request handler 

m status. dwCurrentState = SERVICE START PENDING; 
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m_hServiceSta tus = Register ServiceCtr lHandler {m_s zServiceName , _Handler); 

if (m^hServiceStatus NULL) 

{ 

LogEvent (_T ( "Handler not installed")); 
return; 

} 

SetServiceStatus ( SERVICE__START_ PEN DING ) ; 

m_status.dwWin32ExitCode = S_OK; 
m_status . dwCheck Point = 0; 
m_sta tus . dwWai tHint = 0; 

// When the Run function returns, the service has stopped. 
Run ( ) ; 

SetServiceStatus ( SERVICE_STOPPED) ; 

CLogMsgEvent ( HL7EV_SERVICE_STOPPED) . Post (_logAll) ; 

} 

inline void CServi ceModule :: Handler ( DWORD dwOpcode) 
{ 

switch (dwOpcode) 
{ 

case SERVICE_CONTROL_STOP: 

SetServiceStatus ( SERVICE_STOP_PENDING ) ; 
PostThreadMessage (dwThreadID, WM_QUIT, 0, 0); 
break; 

case SERVICE_CONTROL_PAUSE: 
break ; 

case SERVICE_CONTROL_CONTINUE : 
break ; 

case SERVICE__CONTROL_ INTERROGATE : 
break ; 

case SERVICE_CONTROL_SHUTDOWN : 

break ; 
default : 

LogEvent (_T ( "Bad service request") ) ; 

} 

} 

void WINAPI CServi ceModule: : _Ser vi ceMa in ( DWORD dwArgc, LPTSTR* IpszArgv) 
{ 

_Module . Ser vi ceMain ( dwArgc , IpszArgv) ; 

) 

void WINAPI CServi ceModule : :_Handler ( DWORD dwOpcode) 
{ 

^Module . Handler ( dwOpcode ) ; 

} 

void CServiceModule :: SetServiceStatus ( DWORD dwState) 
{ 

m_s t a tus . dwCur rent State = dwState; 

: : SetServiceStatus (m_hSer vi ceS ta tus , &m_status) ; 

) 

void CServiceModule : : Run ( ) 
{ 

__Module . dwThreadID - GetCur rentThreadld ( ) ; 
// HRESULT hr = Colni t i a 1 i z e ( NULL) ; 

// If you are running on NT 4.0 or higher you can use the following call 

// instead to make the EXE free threaded. 

// This means that calls come in on a random RPC thread 

HRESULT hr = CoInitializeEx (NULL, COINIT_MULTITHREADED) ; 

_ASSERTE (SUCCEEDED (hr) ) ; 



C:\Documents and Settings\billyhe\My . . . Lif eciinic\LCServices\LCBroker \LCBro ker ♦ cpp 

// This provides a NULL DACL which will allow access to everyone. 

CSecurityDescr iptor sd; 

sd . InitializeFromThreadToken ( ) ; 

hr = CoInitializeSecurity (sd, -1, NULL , NULL, 

RPC_C_AUTHN_LEVEL_PKT, RPC_C_IMP__LEVEL_IMPERSONATE , NULL, EOAC_NONE , NULL) ; 
_ASSERTE (SUCCEEDED(hr) ) ; 

hr = _Module.RegisterClassObjects (CLSCTX_LOCAL_SERVER I CLSCTX_REMOTE_SERVER, 
REGCLS_MULTI PLEUSE ) ; 
_ASSERTE (SUCCEEDED (hr) ) ; 

CLogMsgEvent ( "Service Started" ) . Post (_logAll) ; 
if (m_bService) 

SetServiceStatus (SERVICE_RUNNING) ; 

//init default registry Alias. 

///////////////////////////////////////////////////////////////// 
_strDefaultAlias = ""; 

MSG msg; 

while (GetMessage ( &msg, 0, 0, 0)) 
Di spa tchMes sage ( &msg ) ; 

CLogMsgEvent ("Service Stopped") . Post (_logAll) ; 

__Module . Revoked a ssObjects ( ) ; 

CoUninitialize ( ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// 

extern "C" int WINAPI _tWinMain ( HINSTANCE hlnstance, 

H INSTANCE / ^hPrevIns tance* / , LPTSTR lpCmdLine, int / * nShowCmd* / ) 

{ 

_logAll . Add Log ( &_logE vents ) ; 
_logDebug . Enabled ( false ) ; 
_logAll .AddLog U_logFile) ; 

ttifdef _DEBUG 

__logE vents .EnableTranslation(true) ; 

_logDebug . Enabled ( true) ; 

_logAll . AddLog ( &_log Debug ) ; 
tfendif 

lpCmdLine = GetCommandLine ( ) ; //this line necessary for _ATL_MIN_CRT 
_Module . Init (ObjectMap, hlnstance, I DS_SERV ICE NAME , &LIBI D_LCBROKERLib) ; 
_Module . m_bService = TRUE; 

TCHAR szTokenst] « _T ("-/") ; 

LPCTSTR IpszToken = FindOneOf ( 1 pCmdLine , szTokens) ; 
while (IpszToken ! = NULL) 
{ 

if ( lstrcmpi (IpszToken, _T ( "UnregServer " ) ) ==0 ) 
return _Module . Unregis terServer ( ) ; 

// Register as Local Server 

if (lstrcmpi (IpszToken, _T ( "RegServer " ) ) ==0 ) 

return _Module . Regis terServer ( TRUE , FALSE); 

// Register as Service 

if ( lstrcmpi (IpszToken , _T ( "Service" )) ==0 ) 

return __Module . RegisterSer ver ( TRUE , TRUE ) ; 



IpszToken = FindOneOf ( lps zToken , szTokens); 
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} 

// Are we Service or Local Server 
CRegKey keyAppID; 

LONG IRes = keyAppID . Open ( HKEY_CLASSES_ROOT, _T ( " AppI D" } , KEY_READ) ; 
if (IRes != ERROR_SUCCESS) 
return IRes ; 

CRegKey key; 

IRes = key. Open (keyAppID, _T ( " { 7 57 5 1D7 2-AFD1- 1 1D2-AC59- 00C04 F6E4C4 8 } " ) , KEY_READ) ; 
if (IRes != ERROR_SUCCESS) 
return IRes; 

TCHAR szValue [_MAX_PATH] ; 
DWORD dwLen = _MAX_PATH; 

IRes = key . QueryValue { szValue, _T ( "LocalService" ) , &dwLen); 

_Module.m_bService = FALSE; 
if (IRes == ERROR_SUCCESS) 

_Module .m_bService = TRUE; 

^Module. Start () ; 

// When we get here, the service has been stopped 
return ^Module . m_status . dwWin32Exi tCode ; 

} 
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#include "stdafx.h" 
# include "Logging . h" 
^include "Registry . h " 

/////////////////////////////////////// 
/////////////////////////////////////// 
// Log messages 

/////////////////////////////////////// 
/////////////////////////////////////// 
CLogMsg : : CLogMsg ( ) 
{ 

m_pszText = NULL; 

} 

CLogMsg : : CLogMsg (LPCSTR pszMessage) 
{ 

m_pszText = NULL; 
if (pszMessage != NULL) 
*this << pszMessage; 

) 

CLogMsg: : CLogMsg (string & str Message) 
{ 

m_ps zText = NULL; 
*this << strMessage; 

} 

CLogMsg : : -CLogMsg ( ) 
{ 

ReleaseBuf f ers ( ) ; 

} 

CLogMsg & CLogMsg: : For mat (LPCSTR pszFormat, ...J 
{ 

Clear ( ) ; 

va_list pArgs; 
va_start (pArgs , pszFormat); 
TCHAR pszBuffer [1024]; 

vsprintf (pszBuf f er , pszFormat, pArgs); 
va_end ( pArgs ) ; 
*this << pszBuffer; 
return *this; 

} 

void CLogMsg :: Post (CLogBase & log) 
{ 

log . Post ( this ) ; 
return; 

} 

long CLogMsg :: Event ( ) 
{ 

return 0; 

} 

long CLogMsg :: Severity ( ) 
i 

return EVENTLOG_SUCCESS ; 

} 

TCHAR + * CLogMsg :: Arguments (long * plArgCount) 
{ 

*plArgCount = 1; 
Text ( ) ; 

return &m_pszText; 

} 
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TCHAR * CLogMsg : : Text ( ) 
{ 

ReleaseBuf f ers {) ; 

*this << ' \0 ' ; 

TCHAR * pszText = str(); 

int nLen = pcount ( ) ; 

m_pszText = new TCHAR [nLen + 1] ; 

_tcscpy <m_pszText , pszText); 

freeze { false ) ; 

return m_pszText; 

} 

void CLogMsg :: ReleaseBuf f ers ( ) 
{ 

if (m_pszText != NULL) 
{ 

delete [] m__pszText; 
rn_pszText = NULL; 

} 

return; 

} 

void CLogMsg :: Clear ( ) 
{ 

ReleaseBuf f ers ( ) ; 
seekp { 0 ) ; 
return ; 

} 

void CLogMsg :: appendError (_com_error & e) 
{ 

string strError = (char + ) e . Description () ; 
HRESULT hr = e. Error (); 

+this << "COM Error = [ " << strError << " ] . hr = [" « std::hex << hr << "]."; 
return ; 

} 

void CLogMsg :: appendError (HRESULT hr) 
{ 

*this << "hr = [" << std::hex << hr << std::dec << "J"; 
return; 

} 

void CLogMsg :: appendError (CLoqMsg & em) 
{ 

appendError (( std :: str stream &) em); 

} 

void CLogMsg :: appendError ( std :: str stream & strmError) 
{ 

strmError << ' \0 ' ; 

*this << strmError . str () ; 

strmError .freeze (false); 

} 

void CLogMsg :: setError (_com_error & e) 
{ 

clear { ) ; 
appendError ( e ) ; 

} 

void CLogMsg :: setError (HRESULT hr) 
{ 

clear { ) ; 

appendError (hr) ; 

} 
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void CLogMsg : : setError {LPCSTR pszError) 
{ 

clear { ) ; 

*this << pszError; 

} 

void CLogMsg :: setError (CLogMsg & em) 
{ 

clear ( ) ; 

appendError {em) ; 

} 

void CLogMsg :: getError ( string & strError) 
{ 

*this << * \0 ' ; 
strError - s tr ( ) ; 
freeze (false) ; 
return ; 

} 

string CLogMsg :: getError ( ) 
i 

string strError; 
*this << • \0' ; 
strError = str ( ) ; 
freeze (false ) ; 
return strError; 

} 

void CLogMsg :: getError ( std :: strstream & strmError) 
{ 

*this << 1 \0 » ; 
strmError << str { ) ; 
freeze (false ) ; 
return ; 

} 

/////////////////////////////////////// 

const char CLogMsgEvent : : bArgSep = ' \t'; 

CLogMsgEvent : : CLogMsgEvent ( ) 
{ 

Init ( ) ; 

} 

CLogMsgEvent : : CLogMsgEvent (LPCSTR pszMessage) 
:CLogMsg (pszMessage) 

{ 

Init () ; 

} 

CLogMsgEvent :: CLogMsgEvent ( string & strMessage) 
:CLogMsg (strMessage) 

{ 

Init {) ; 

} 

CLogMsgEvent :: CLogMsgEvent ( long lEventID, long lSeverity, LPCSTR pszMessage) 
: CLogMsg (pszMessage ) 

{ 

Init () ; 

m_lEventID = lEventID; 
m_lSeverity = lSeverity; 

} 

CLogMsgEvent :: CLogMsgEvent ( long lEventID, long lSeverity, string & strMessage) 
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:CLogMsg { strMessage) 

{ 

Init () ; 

m_lEventID - lEventID; 
m_lSeverity - lSeverity; 

} 

CLogMsgEvent : : CLogMsgEvent ( long lEventID, long lSeverity, _com_error & e) 
{ 

USES_CONVERSION; 
InitO; 

m_lEventID = lEventID; 
m_lSeverity - lSeverity; 

*this << "Ox" << std::hex << e. Error () << std::dec << bArgSep; 
BSTR bstrDesc - e . Description {) ; 
if (bstrDesc != NULL) 

*this << W2T (bstrDesc) ; 

else 

*this << " 

} 

CLogMsgEvent :: CLogMsgEvent ( long lEventID, long lSeverity, HRESULT hr) 
{ 

Init ( ) ; 

m_lEventID = lEventID; 

m_lSeverity = lSeverity; 

*this << "Ox" << std::hex << hr; 

) 

CLogMsgEvent : : -CLogMsgEvent ( ) 
{ 

Release Buffers () ; 

} 

inline void CLogMsgEvent :: Ini t ( ) 
i 

m_lEventID = 0; 
m_lSe verity = -1; 
m_wArgCount = 0; 
m_ppszArgs = NULL; 

} 

void CLogMsgEvent :: SetEvent ( long lEventID, long lSeverity, LPCSTR pszMessage) 
{ 

Clear ( ) ; 

m_l Event ID = lEventID; 
m_lSeverity = lSeverity; 
if (pszMessage != NULL) 
*this << pszMessage; 

} 

long CLogMsgEvent :: Event ( ) 
{ 

return m_lEventID; 

} 

long CLogMsgEvent : : Severity ( ) 
{ 

if (m_lSeverity == ~1) 
{ 

if ((m_lEventID & OxCOOOOOOOL) OxCOOOOOOOL) 

return EVENTLOG_ERROR_TYPE ; 
else if (m_lEventID 6. Ox80000000L) 

return EVENTLOG_WARN I NG_TYPE ; 
else if (m_lEventID & 0x40000O0OL) 
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return EVENTLOG_INFORMATION_TYPE ; 

else 

return EVENTLOG_SUCCESS ; 

} 

else 

return m_l Sever it y; 

} 

TCHAR CLogMsgEvent :: Arguments (long * plArgCount) 
{ 

ReleaseBuf f ers ( ) ; 

// get temp buffer 
strstream strmTemp; 
*this << ' \0 ' ; 
strmTemp << str () ; 
freeze (false ) ; 

// make sure double nulled 
strmTemp << '\0' << '\0'; 

TCHAR * pszText = strmTemp . str () ; 
if (*pszText) 

m_wArgCoun t++ ; 

// make array of strings 

for (int i - 0; pszText [i]; i + +) 

{ 

if (pszText[i] == CLogMsgEvent :: bArgSep } 
{ 

pszText [i] = 0; 
m_wArgCount++ ; 

} 

} 

// if data, allocate arg array 

if (m_wArgCount ) 

{ 

int nLen = 0; 

m_jppszArgs = new TCHAR * [m_wArgCount j ; 
for (int i = 0; i < m_wArg Count; i++) 
{ 

nLen = _tcslen (pszText ) ; 
m_ppszArgs [ i ] = new TCHAR [nLen + 1] ; 
_tcscpy {m_ppszArgs [ i] , pszText) ; 
pszText += nLen + 1; 

} 

} 

strmTemp . freeze ( false) ; 

// return buffer 
*plArgCount = m_wArgCount; 
return m__ppszArgs; 

} 

TCHAR * CLogMsgEvent : :Text ( ) 
{ 

CLogMsg :: ReleaseBuf f ers {) ; 

// format message into tempeorary strstream 

*this << ' \0 ' ; 

std :: strstream strmTemp; 

strmTemp << "EventrOx" << std::hex << m_lEventID << Severity:" << std::dec << 
Severity () << ", Text:"; 

// if translation is turned on, then get message from message source 
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DWORD dwCharsReturned = 0; 

if (CLogNTEvents : :m_hMsgSrc !- NULL) 

{ 

TCHAR pszBuf f [2048] ; 

dwCharsReturned = Forma tMessage ( FORMAT_MESSAGE_FROM_HMODULE I ✓ 
FORMAT_MESSAGE_ARGUMENT__ARRAY , 

CLogNTEvents: : m_hMsgSr c , 
m__lEvent ID, 

MAKELANGID ( LANG_NEUTRAL , SUBLANG_DE FAULT ) , 

pszBuf f , 

2048, 

m_ppszArgs ) ; 

if (dwCharsReturned) 
{ 

/ / chop off line feed 
pszBuff [ --dwCharsReturned] = 0; 
// move data to formated message 
if (dwCharsReturned) 

strmTemp << pszBuf f << * \0 f ; 

} 

} 

// if translation not turned on or translation didn't work then put out argument data 

if ( ! dwCharsReturned ) 

{ 

strmTemp << str() << ' \0'; 
f reeze (false ) ; 

} 

// move temp strstream into m_pszText and return pointer to m_pszText 

int nLength = st rmTemp . pcount ( ) ; 

m_pszText - new TCHAR [nLength + 1] ; 

_tcsncpy (m_pszText , strmTemp . s tr () , nLength); 

strmTemp .freeze(false) ; 

m_pszText [nLength] - 0; 

return m_ps zText ; 

} 

void CLogMsg Event : : Re lea seBuf f er s ( ) 
{ 

CLogMsg : : Re lea seBuf f er s ( ) ; 

if (m_ppszArgs != NULL) 
{ 

for (int i = 0; i < rn_wAr gCount ; i + +) 

delete [] m_ppszArgs [ i ] ; 
delete [] m_ppszArgs; 
m_ppszArgs = NULL; 
m_wArgCount = 0; 

} 

return; 

) 

/////////////////////////////////////// 
/////////////////////////////////////// 
// Logs 

/////////////////////////////////////// 
/////////////////////////////////////// 

CLogBase : : CLogBase ( ) 
{ 

m_fEnabled = true; 
m_nlndent = 0; 

} 
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CLogBase : : CLogBase (LPCSTR ps 2 Re sour ceName ) 
{ 

m_fEnabled = true; 

m_s trResourceName = pszResourceName; 
m_nlndent - 0; 

} 

void CLogBase: : Resour ceName { LPCSTR pszResourceName) 
{ 

m_strResourceName = pszResourceName; 
return; 

} 

void CLogBase :: Post (CLogMsg * pmsgLog) 
{ 

return; 

} 

void CLogBase : :Open ( ) 
{ 

return; 

} 

void CLogBase : .-Close { ) 
{ 

return; 

} 

/////////////////////////////////////////////////// 
HINSTANCE CLogNTEvent s : : m_hMsgSrc = NULL; 

CLogNTEvents :: CLogNTEvent s ( ) 
: CLogBase ( ) 

{ 

} 

CLogNTEvents: : CLogNTEvent s ( LPCSTR pszResourceName) 
:CLogBase (pszResourceName) 

{ 
} 

void CLogNTEvent s :: Post { CLogMsg * pmsgLog) 
{ ' 
if ( !m_fEnabled) 
return ; 

HANDLE hEventSource « Regi sterEventSource (NULL, m_s trResourceName . c_str ()) ; 

if (hEventSource ! = NULL) 

{ 

long lArgCount; 

TCHAR ** pszArgs = pmsgLog->Argument s ( &lAr gCount ) ; 

ReportEvent (hEventSource, pmsgLog->Sever i ty ( ) , 0, pmsgLog->Event { ) , NULL, 
lArgCount , 

0, (const TCHAR + *) pszArgs, NULL); 
DeregisterEventSour ce (hEventSource) ; 

} 

} 

void CLogNTEvents :: EnableTranslat ion (bool fEnable) 
{ 

if (fEnable) 
{ 

if ( ! m__hMsgSrc) 

m_hMsgSrc = LoadMessageSource ( ) ; 

} 

else 
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{ 

if (m_hMsgSrc) 
{ 

FreeLibrary (m_hMsgSrc) ; 
mJiMsgSrc = NULL; 

} 

} 

return; 

} 

HINSTANCE CLogNTEvents : : LoadMessageSour ce ( ) 
{ 

CRegistry regLocal; 

// get the name of the resource 

if ( ! regLocal .Connect {CRegistry : : keyLocalMachine ) ) 
return NULL; 

string strKey( "SYSTEMN \Cur rentContr olSet \ \ Services \ \ E vent Log \ \Applica t ion\ \ " ) ; 
strKey +- m_s trResourceName ; 
if {! regLocal . Open (strKey . c_str ( ) ) ) 
return NULL ; 

string str DLL ; 

if (! regLocal .GetValue ( M EventMessageFile" , strDLL) ) 
return NULL; 

// load the library 

return Load Library {strDLL . c_str { ) } ; 

} 



/////////////////////////////////////////////////// 

CLogFile : : CLogFile ( ) 
: CLogBase ( ) 

{ 
} 

CLogFile: :CLogFile (LPCSTR ps zResour ceName ) 
:CLogBase (pszResourceName) 

{ 

m_streamIO. open (pszResourceName , ios_base : : out | ios_base : : t rune ) ; 

} 

void CLogFile : rOpen (LPCSTR pssFileName) 
{ 

Close () ; 

m_strResourceName = pszFileName; 
Open ( ) ; 

} 

void CLogFile :: Open ( ) 
{ 

if { ! m_s tr eamlO. is_open { ) ) 

m_s treamlO. open (m_s trResourceName . c_str ( ) , ios_base : : out I ios_base: rtrunc) ; 

} 

void CLogFile :: Close { } 
{ 

if (m_streamIO. is_open ( ) ) 

m_s tr eamlO . close ( ) ; 
return; 

} 

void CLogFile :: Post (CLogMsg * pmsgLog) 
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if ( !m_fEnabled) 
return ; 

Lock ( ) ; 

if (m_streamIO. is_open { ) ) 
{ 

string s trTabs (m_nlndent , ' \t'); 

m_streamIO << strTabs << pmsgLog->Text O << ' \n 1 ; 
m_streamIO. flush { ) ; 

} 

Unlock () ; 
return ; 

} 

///////////////////////////////////////////////////////////////////// 

CLog Debug : : CLog Debug ( ) 

{ 

} 

void CLogDebug : : Pos t (CLogMsg + pmsgLog) 
i 

if ( !m_fEnabled) 

return ; 
if (m_nlndent) 
{ 

string strTabs (m_nlndent , ' \t'); 
Output Debug St ring ( strTabs . c_str ( ) } ; 

} 

OutputDebugStr ing ( pmsgLog~>Tex t { ) ) ; 
OutputDebugStr ing ( " \n" ) ; 
return ; 

} 

///////////////////////////////////////////////////////////////////// 

CLogMulti : : CLogMulti ( ) 
{ 

} 

void CLogMulti :: AddLog (CLoqBase + ploa) 
{ 

Lock ( ) ; 

m_col lLogs . push_back (plog ) ; 
Unlock {); 

} 

void CLogMulti :: RemoveLog (CLogBase * plog) 
{ 

LockO ; 

if (plog !- NULL) 

m_collLogs . remove {plog ) ; 

else 

m_collLogs .erase (m_c oil Logs . begin {) , m__collLogs . end { ) ) ; 
Unlock { ) ; 
return; 

} 

void CLogMult i :: Post {CLogMsg * pmsgLog) 
{ 

if ( !m_fEnabled) 
return; 

LockO ; 

lis t<CLogBase *>::iterator itLogs; 
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for (itLogs = m_col lLogs . begin {) ; itLogs != m_col lLogs . end ( ) ; itLogs++) 

pmsgLog->Post (* (*itLogs) ) ; 
Unlock () ; 

return; 

} 

void CLogMulti : : Open { ) 
{ 

Lock ( ) ; 

list<CLogBase ^>::iterator itLogs; 

for (itLogs = m_col lLogs . begin () ; itLogs \~ m_collLogs . end ( ) ; itLogs++) 

( *itLogs ) ~>Open { ) ; 
Unlock () ; 

} 

void CLogMulti :: Close ( ) 
{ 

Lock { ) ; 

list<CLogBase *>::iterator itLogs; 

for {itLogs = m_collLogs . begin () ; itLogs != m_collLogs . end { ) ; itLogs++) 

( * it Logs ) ->Close ( ) ; 
Unlock {) ; 

) 



string CTimeStamp : : LocalTime ( ) 
{ 

SYSTEMTIME tm; 
GetLocalTime ( &tm) ; 
char pBuf f [30] ; 

sprintf (pBuf f , " % 02d : % 02d : % 02d . %d M , tm.wHour, tm.wMinute, tm.wSecond, tm. 
wMilliseconds ) ; 
return st r ing (pBuf f ) ; 

} 
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#pragma once 

/* This code was taked from the "Windows Foundation Class" project 
which is authored by Samuel R. Blackburn (see the below original 
comments from Sam.) 

The source code used MFC as a basis but since the AHC source 
code avoids MFC, I have modified this code to use noting but 
standard C++. Also, I've have removed functionality that did 
not make sense in the AHC case to lessen the amount of code 
present . 

Darin Greaham 
Millbrook Corporation 
August 1997 

*/ 
/* 

** Author: Samuel R. Blackburn 

** CI$: 76300,326 

** Internet: sblackbu@erols.com 
* * 

** You can use it any way you like as long as you don't try to sell it. 

** Any attempt to sell WFC in source code form must have the permission 
** of the original author. You can produce commercial executables with 
** WFC but you can't sell WFC. 

■*• + 

** Copyright, 1997, Samuel R. Blackburn 

** $Workfile: Registry. h $ 

** $Revision: 1 $ 

** $Modtime: 1/14/00 1 : 4 9p $ 

V 

class CRegistry 
{ 

public : 

CRegistry ( const CRegistry& RightSide ) 
{ 

// call assigment operator 
*this = RightSide; 

} 

CRegistry& operator={ const CRegistryS RightSide ) 

m KeyHandle = Right Side. m KeyHandle; 

m RegistryHandle = RightSide. m RegistryHandle; 

m ErrorCode = RightSide. m ErrorCode; 

m ClassName « RightSide. m ClassName; 

m Compute rName » Right Side. m Compute rName ; 

m KeyName == RightSide. m KeyName; 

m RegistryName - RightSide. m RegistryName; 

m NumberOfSubkeys = RightSide. m NumberOf Subkeys; 

m NumberOf Values = RightSide. m Numbe rOf Values ; 

m LongestSubkeyNameLength = RightSide. m Longest SubkeyName Length; 
m LongestClassNameLength = RightSide. m LongestClassNameLength; 
m_LongestValueName Length = RightSide .m_LongestValueNameLength; 
m_LongestValueDataLength = RightSide .m_LongestValueDataLength; 
m_SecurityDescriptorLength = RightSide . m_SecurityDescriptorLength; 
m_LastWriteTime = RightSide .m_LastWriteTime ; 
return ( *this ) ; 

}; 



private : 

void m_Initialize { void ); 
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protected: 

HKEY m KeyHandle; 
HKEY m_RegistryHandle; 



LONG m_ErrorCode; 

string m ClassName; 
string ra Compute rName; 
string m KeyName; 
string m RegistryName ; 
. DWORD m NumberOf Subkeys; 
DWORD m_NumberOf Values; 

// 

// Data items filled in by Querylnfo 
// 



DWORD m_LongestSubkeyName Length; 

DWORD m_LongestClassNameLength; 

DWORD m_LongestValueName Length; 

DWORD m_LongestValueDataLength; 

DWORD m_SecurityDescriptor Length; 
FILETIME m_LastWriteTime; 

public : 



enum _Keys 
{ 

keyLocalMachine 
keyClassesRoot 
keyPe rf ormanceData 
keyUsers 
keyCurrentUser 
#if ( WINVER >= 0x400 ) 

keyCurrentCon figuration 
keyDynamicData 

#endif 



(DWORD) HKEY_LOCAL_MACHINE, 

(DWORD) HKEY_CLASSES_ROOT / 

(DWORD) HKEY_PERFORMANCE_DATA, 

(DWORD) HKEY USERS, 

(DWORD) HKEY_CURRENT__USER, 

(DWORD) HKEY CURRENT CONFIG, 

(DWORD) HKEY DYN DATA 



enum KeyValueTypes 
{ 

typeBinary 
typeDoubleWord 
typeDoubleWordLittleEndian 
typeDoubleWordBigEndian 
typeUnexpandedSt ring 
type Symbolic Link 
typeMultipleString 
typeNone 

typeResourceList 
typeString 



= REG BINARY, 
- REG DWORD, 

= REG DWORD LITTLE ENDIAN, 

= REG DWORD BIG ENDIAN, 

= REG EXPAND_SZ, 

= REG LINK, 

= REG MULTI_SZ, 

= REG NONE, 

= REG RESOURCE_LIST, 

= REG SZ 



enum CreateOptions 
{ 

optionsNonVolatile = REG OPTION NON VOLATILE, 
optionsVolatile = REG_OPT I ON_VO LAT I LE 

}; 



enum CreatePermissions 
{ 

permissionAHAccess 
permissionCre ate Link 
permissionCreateSubKey 
permissionEnumerateSubKeys 
permissionExecute 



= KEY_ALL_ACCESS, 

- KEY_CREATE_LINK, 

= KEY_CREATE_SUB_KEY, 

= KEY_ENUMERATE_SUB_KEYS, 

= KEY_EXECUTE, 
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permissionNotif y 
permissionQuery Value 
permissionRead 
permissionSet Value 
permissionWrite 



= KEY NOTIFY, 

= KEY QUE RY_ VALUE, 

- KEY READ, 

« KEY SET VALUE , 

= KEY WRITE 



enum CreationDisposition 
{ 

dispositionCreatedNewKey = REG CREATED NEW KEY, 

dispositionOpenedExistingKey = REG_OPENED_EXI STING KEY 

}; 



CRegistry () ; 
// 

// Destructor should be virtual according to MSJ article in Sept 1992 

// "Do More with Less Code:..." 

// 

virtual -CRegist ry ( ) / 
// 

// Methods 
// 

virtual BOOL Close ( void ); 

virtual BOOL Connect ( const _Keys key_to_open = keyCurrentUser, 

LPCTSTR computer_name = NULL ) ; 

virtual BOOL Create ( LPCTSTR name of subkey, 

LPCTSTR name of class = NULL, 

CreateOptions options = * 

opt ionsNon Volatile, 

CreatePermissions permissions = ^ 

permissionAHAccess, 

LPSECURITY ATTRIBUTES security attributes p = NULL, 

CreationDisposition * disposition_p » NULL ) / 

virtual BOOL DeleteKey( LPCTSTR name_of_subkey_to_delete ); 

virtual BOOL DeleteValue( LPCTSTR name_of_value_to_delete ) ; 

virtual BOOL EnumerateKeys ( const DWORD subkey index, 

strings subkey name, 
strings class_name ) ; 

virtual BOOL EnumerateValues ( const DWORD value index, 

strings name of value, 

KeyValueTypesS type code, 
LPBYTE data buffer, 

DWORDs size_of_datajDuf fer ); 

virtual BOOL Flush ( void ); 

virtual BOOL GetBinaryValue ( LPCTSTR name_of_value , BYTE return_array [ ] , DWORDs * 
num_bytes_read ) ; 

virtual void GetClassName ( strings class_name ) const; 
virtual void GetComputerName ( strings computer_name ) const; 

virtual BOOL GetDoubleWordValue ( LPCTSTR name_of_value , DWORDS return value ); 

virtual BOOL GetErrorCode ( void ) const; 

virtual void GetKeyName ( strings key_name ) const; 

virtual DWORD GetNumberOf Subkeys ( void ) const; 

virtual DWORD GetNumberOf Values ( void ) const; 

virtual void GetRegist ryName ( strings regist ry_name ) const; 

virtual BOOL GetStringValue ( LPCTSTR name_of _value , strings return_st ring ); 
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virtual BOOL GetValue ( LPCTSTR name of value, DWORD & return value ); 
virtual BOOL GetValue ( LPCTSTR name of value, strings return_st ring ); 
virtual BOOL Open ( LPCTSTR name of subkey to open, 

const CreatePermissions security_access_mask = permissionRead ) ; 
virtual BOOL QueryInfo( void ); 

virtual BOOL QueryValue ( LPCTSTR name of value, 

KeyValueTypesS value type, 

LPBYTE address of buffer, 

DWORD & size of buffer )/ 

virtual BOOL SetBinaryValue ( LPCTSTR name_of _value , const BYTE bytes to write [] , 
DWORD num bytes to write ) ; 

virtual BOOL SetDoubleWordValue ( LPCTSTR name of value, DWORD value to write ); 
virtual BOOL SetStringValue ( LPCTSTR name of value, const strings string_value )/ 
virtual BOOL SetValue ( LPCTSTR name of value, DWORD value )/ 

virtual BOOL SetValue ( LPCTSTR name of value, const strings st ring_to_write ); 

virtual BOOL SetValue ( LPCTSTR name of subkey, 

const KeyValueTypes type of value to set, 
CONST PBYTE address_of_value_data, 
const DWORD size_of data ) ; 



C:\Documents and Settings\billyhe\My . . . \LCServices\LCBroker\registryBase .h 



1 



#ifndef registryBase h 
tdefine _regist ryBase_h 

#include "registry. h" 

class CRegistryBase 
{ 

protected: 

CRegistry m_oRegistry; 

enura { REG_FAI LURE = 0, REG_SUCCESS = 1 } ; 

CRegistryBase { ) ; 

bool connect (CRegistry : : Keys eKey, LPCSTR pszComputer = NULL); 
bool getValue (LPCSTR pszValueName, string & strValue); 
bool getValue (LPCSTR pszValueName, unsigned long & lValue); 

bool getBinaryValue (LPCSTR pszValueName, LPBYTE pBuff, DWORD * pdwBuf f Size ) ; 

bool setValue (LPCSTR pszValueName, LPCSTR pszValue) ; 

bool setValue (LPCSTR pszValueName, unsigned long 1 Value ) ; 

bool openKey (LPCSTR pszKeyPath); 

bool createKey (LPCSTR pszKeyPath) ; 

int enumKeys (vector<string> & aryKeys); 

bool close {) { return (m_oRegistry . Close { ) == TRUE); } 
public : 

string m_st rLastError ; 

} ; 



#endif 
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#ifndef registryDB h 
#define _registryDB_h 

#include "registryBase .h" 

class CRegistryDatabase : public CRegist ryBase 
{ 

protected: 

static string 
bool 
bool 

public : 

vector<string> 
string 
string 
string 
string 
string 
string 
string 
string 
string 

protected: 

void Init ( ) ; 



m strPath; 

m f ProductOpen; 

m_f AliasOpen; 



m collAliases; 

m strProduct; 

ra strAlias; 

m strDefaultAlias; 

m_s t rDa t abas eName ; 

m_strDatabaseType; 

m_strPassword; 

m_s t r Se rve rName ; 

ra_s t rUs e rName ; 

m_strDBType; 



public : 

CRegistryDatabase { ) ; 

bool openProduct (LPCSTR pszProduct) ; 
bool openAlias (LPCSTR pszAlias); 



#endif 
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//{{NO DEPENDENCIES}} 

// Microsoft Developer Studio generated include file. 

// Used by LCBroker.rc 

// 

#define IDS SERVICENAME 100 
#define IDR LCBroker 100 
#define I DR_LCBR0KER1 101 

// Next default values for new objects 
// 

#ifdef APSTUDIO INVOKED 

#ifndef APSTUDIO READONLY SYMBOLS 



#define APS NEXT RESOURCE VALUE 201 

#define APS NEXT COMMAND VALUE 327 68 

#define APS NEXT CONTROL VALUE 201 

#define _APS_NEXT_SYMED_ VALUE 102 
#endif 
#endif 
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#include "stdafx.h" 
#define _rs_cpp 

#include "rs address. cpp" 
#include "rs admit. cpp" 
#include "rs allergy . cpp" 
#include "rs audit. cpp" 
#include "rs convert pc.cpp" 
#include "rs discharge . cpp" 
#include "rs employers .cpp" 
#include "rs encounter tree. cpp" 
#include "rs encounter .cpp" 
#include "rs family tree. cpp" 
#include "rs id map. cpp" 
#include "rs insurance . cpp" 
#include "rs loa.cpp" 
#include "rs misc id. cpp" 
#include "rs_name . cpp" 
#include "rs_name_search . cpp" 
#include "rs_person . cpp" 
#include "rs_phone . cpp" 
#include "rs_physical . cpp" 
#include "rs_pre_admit . cpp" 
#include " rs_trans f er . cpp" 
#include " rs_code_cache . cpp" 
#include "rs_cpi_user . cpp" 
#include "rs_account . cpp" 
#include "rs_disability . cpp" 
#include "rs^care directives . cpp" 
#include "rs_guarantor .cpp" 
#include " rs_diagnosis . cpp " 
#include "rs_physicians . cpp" 
#include "rs patient valuables . cpp" 
#include "rs company. cpp" 
#include "rs decision . cpp" 
#include "rs hep. cpp" 
#include "rs sys org facility .cpp" 
#include "rs cpi master. cpp" 
#include "rs nok.cpp" 
#include "rs location . cpp" 
#include "rs patient. cpp" 
#include "rs blood pressure . cpp" 
#include " rs health condition . cpp" 
#include "rs immunization . cpp" 
#include "rs medication . cpp" 
#include "rs surgery. cpp" 
#include "rs therapy. cpp" 
#include "rs family history. cpp" 
#include "rs imaging. cpp" 
#include "rs reminders . cpp" 
#include "rs cholesterol . cpp" 
#include "rs mass mailing. cpp" 
#include "rs unregistered user. cpp" 
#include "rs stats. cpp" 
#include "rs user pre f erence . cpp" 
#include "rs_kiosk . cpp" 
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// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, 

// but are changed infrequently 

#if !defined(AFX STDAFX H 75751D74 AFD1 11D2 AC59 OOC04F6E4C48 INCLUDEDJ 
#define AFX_STDAFX_H 7 57 51D7 4_AFD1_11D2_AC5 9_00C04F6E4C4 8 INCLUDED_ 

#if MSC VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

#define STRICT 
#ifndef WIN32 WINNT 
#define _WIN32_WINNT 0x0400 
#endif 

//#define _ATL_APARTMENT_ THREADED 

//include for using COledataTime class 
#include <afxdisp.h> 

#include <atlbase.h> 

//You may derive a class from CComModule and use it if you want to override 
//something, but do not change the name of ^Module 

struct CLCBrokerStats 
{ 

SYSTEMTIME m_systimeStarted; 

DATE m__vartimeStarted; 

long m_lCommandsProcessed; 

long m_lTotalClients; 

long m_lCurrentClients; 

CLCBrokerStats ( ) 
{ 

memsetUm systimeStarted, 0x00, sizeof (SYSTEMTIME) ) ; 
m vartimeStarted = O.Of; 
m ICommandsProcessed = 0; 
m lTotalClients = 0; 
m_lCurrentClients = 0; 

} 

}/ 



//STL 

#include <string> 

class CServiceModule : public CComModule 
{ 

public : 

HRESULT RegisterServer (BOOL bRegTypeLib, BOOL bService); 
HRESULT UnregisterServer () ; 

void Init (_ATL_OBJMAP_ENTRY* p, HINSTANCE h, UINT nServiceNamelD, const GUID* plibid =tf 

NULL) ; 
void Start ( ) ; 

void ServiceMa in (DWORD dwArgc, LPTSTR* IpszArgv); 

void Handler {DWORD dwOpcode); 

void Run ( ) ; 

BOOL IsInstalledO / 

BOOL Install () ; 

BOOL UninstallO ; 

LONG Unlock{); 

void LogEvent (LPCTSTR pszFormat, ...); 
void SetServiceStatus (DWORD dwState); 
void SetupAsLocalServer { ) ; 

//Implementation 
private : 
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static void WINAPI ServiceMain (DWORD dwArgc, LPTSTR* lpszArgv); 
static void WINAPI _Handler ( DWORD dwOpcode ) ; 

// data members 
public : 

TCHAR m szServiceName ( 25 6 ] ; 

SERVICE STATUS HANDLE m hServiceStatus ; 

SERVICE STATUS m status; 

DWORD dwThreadID; 

BOOL m bService; 

CLCBrokerStats m statsLCBroker ; 



extern CServiceModule _Module; 
#include <atlcom.h> 



///////////////////////////////////////////// 
// COM 

tpragma warning (disable : 4 1 92 ) 

#import "msxml . dll" 

#import "msadol5.dll" no_namespace rename { "EOF" , "EOFado") 

# import " . . \ . . \ . . \common\applications\idgenerator\tlb\idgenerator . tlb" no_name space 

#import ,\. A- • \cpi\backend\cpisearcher\idloutput\cpisearcher . tlb" no_namespace 

///////////////////////////////////////////// 
// STL 

tinclude <locale> 
#include <vector> 
tinclude <map> 
#include <strstream> 
#include <fstream> 
tinclude <list> 
using namespace std; 

tdefine TOUPPER(str) ctype<string :: value type> (). toupper { str . begin () , str.endO) 
tdefine TOLOWER(str) ctype<string : :value_J:ype> () .tolower (str. begin () , str.endO) 



///////////////////////////////////////////// 
// CRT 

tinclude <assert.h> 

///////////////////////////////////////////// 
// MS 

tinclude <search.h> 

///////////////////////////////////////////// 
// SLMD 

// event and debug logging 

tinclude "Encryptor . h" 

tinclude "HL7EvMsgSrc . h" 

tinclude "Logging. h" 

extern CLogNTEvents logEvents; 

extern CLogFile logFile; 

extern CLogDebug logDebug; 

extern CLogMulti _logAll; 

extern string _st rDef aultAlias; 

//{ {AFX_INSERT_LOCATION} } 

// Microsoft Visual C++ will insert additional declarations immediately before the 
previous line . 

tendif // Idefined (AFX_STDAFX_H 75751D74_AFD1_11D2_AC59_00C04F6E4C48 INCLUDED) 
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^include "xc_OtherCommands . h " 

^include "r s_insur ance . h" 

///////////////////////////////////////////////////////////////// 
CXC IMPLEMENT FACTORY (Cxc addlnsurance) 



////////////////////////////////////////////////////////////////////// 

//Execute the command. [Call execute and write processing code in processData ( ) ] 

////////////////////////////////////////////////////////////////////// 

bool Cxc_addlnsurance : : execCommand ( ) 

{ 

return execute ( ) ; 

} 

////////////////////////////////////////////////////////////////////// 
//Do parameter validation here 

////////////////////////////////////////////////////////////////////// 

bool Cxc_addlnsurance : : par seParameters () 

{ 

string strData; 
bool fPresent; 

/////////////////////////////////////////////////////////////////// 
//cpi_id should be provided. 

/////////////////////////////////////////////////////////////////// 
strData = get Par ame terVa lue ( " cpi_id " ) ; 
if ( strData . empty () ) 
{ 

m_emLas t . setErr or { " \ "cpi_id \ " is a required."); 
return false; 

) 

/////////////////////////////////////////////////////////////////// 
//Company name should be provided 

/////////////////////////////////////////////////////////////////// 

strData = get ParameterValue ( "company_name " ) ; 

if (strData. empty ( ) ) 

/ 
i 

m__emLast . setErr or (" \ "company_name \ " is required."); 
return false ; 

} 

/////////////////////////////////////////////////////////////////// 
//Self Insured Svjith should be provided. 

/////////////////////////////////////////////////////////////////// 
fPresent - false; 

strData = get ParameterValue { "self _insured_sw" ) ; 

if ( strData . empty 0 ) 

{ 

m_emLast . setError ( " \ " sel f __insured_sw\ n is required."); 
return false; 

} 

bool fSelflnsured = (strData "1") ? true : false; 

//Subscriber last_name should be provided if any name components are provided 
/////////////////////////////////////////////////////////////////// 
fPresent = false; 

StrData = get ParameterValue ( "subscriber_last_name" ) ; 

if ( strData . empty () ) 

{ 
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if (! get ParameterValue ( "subscriber_f irst_name" ). empty () ) fPresent = true; 
if {! getParameterValue { "subscriber__middle_name " ). empty () ) fPresent = true; 

if (fPresent) 
{ 

m__emLast . setError { " \"Last Name \" is required, if any other name components / 
are provided . " ) ; 

return false; 

} 

//No subscriber info provided, so make sure self_insured switch is "1" 

if (! f Self Insured) 

{ 

m_emLast . setError ( "No subscriber info provided for dependent !!!"); 
return false; 

} 

} 



/////////////////////////////////////////////////////////////////// 

//Code ID's should be provided if any codes are provided 

/////////////////////////////////////////////////////////////////// 

if (! get ParameterValue ( "state" ). empty ( ) get ParameterValue (" state_id" ). empty () ) 

< 

m_emLast . setError { " \ "sta te_id\ " is not present. Codes should be accompanied by its/ 
CodelD. ") ; 

return false; 

} 

if (! getParameterValue ( "country" ). empty ( ) && get ParameterValue { "country_id "). empty () ) 
{ 

m_emLast . setError (" \ "count ry__id\ " is not present. Codes should be accompanied by / 
its CodelD. " ) ; 

return false; 

} 

if (! getParameterValue { "claims_state" ). empty ( ) getParameterValue ( "claims_s tate_id" ) / 

. empty { ) ) 

{ 

ra_emLast . setError ("\"claims_state_id\" is not present. Codes should be accompanied/ 
by its CodelD. ") ; 
return false; 

} 

if (! get ParameterValue ( "claims_country" ). empty ( ) getParameterValue! / 

"claims_country_id" ) .empty!) ) 

{ 

m_emLas t . setError {" \ "claims_country_id\ " is not present. Codes should be / 
accompanied by its CodelD."); 
return false; 

} 

if ( ! getParameterValue { " subscriber_relat ionship" ). empty { ) && getParameterValue! / 

"subscr iber_rela tionship_id" ) . empty () ) 

{ 

m_emLast . setError { "\"subscriber_relationship_id\" is not present. Codes should be / 
accompanied by its CodelD."); 
return false; 

) 



return true; 

} 



////////////////////////////////////////////////////////////////////// 
// Do Data processing here. 

// [called from the execute method for each row of data] 
// 

// - creates insurance company, subscriber and participant insurance records. 
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// 

////////////////////////////////////////////////////////////////////// 

bool Cxc_addlnsurance : : processData {) 

{ 

bool fSuccess = true; 
CSdoConnection * pconn = NULL; 



string strCompanyName , strStreetl, strStreet2, strCity, s tr Zip, str State , 
strCountry; 

string s trClaimsSt reet 1 , s trClaimsStree t2 , s t rClaimsCity , s trClaimsSt a te , 
s tr CI aims Zip, strClaimsCountry; 

string str PhoneEmergency , str PhoneMentalHeal th , s tr PhonePreCer t , s tr PhoneBenef its 
str PhoneOther ; 

string strPlanCode, strPlanType, strPlanEf f ectiveDate, s t r Pol icyNumber , 
strGroupNumber, strGroupName; 

string st r SubLa stName , strSubFir stName , s t r SubMiddleName , strSubRelationship, 
s trSubPhone ; 

long lCpild, IStateld, ICountryld, lClaimsS tat eld , IClaimsCountryld , 
ISubRela tionshipld; 

bool f Self Insured; 
long ICompanyCpild; 

//get the parameters 

lCpild = atol ( get Parame terValue { M cpi_id" ) . c_s tr ( ) ) ; 
ICompanyCpild « atol (getParame terValue ( "company_id" ) . c_str ( ) ) ; 
strCompanyName - get ParameterValue { "company_name " ) ; 
strStreetl = get ParameterValue { "street 1" ) ; 
strStreet2 = get ParameterValue '( "s tr eet2" ) ; 
strCity = get ParameterValue ( "city ") ; 
strState = get ParameterValue (" state" ) ; 

IStateld = atol ( getParame terVa lue ( "state_id" ) . c_str { ) ) ; 
strZip = get ParameterValue ( "zip" ) ; 
strCountry = get Parame terValue ( "count ry" ) ; 

ICountryld = atol (get ParameterValue ( "country_id" ). c_str ()) ; 
strClaimsStreetl = get ParameterVa lue ( "claims_street 1 " ) ; 
strClaimsStreet2 = getParameterValue ( "claims_street2 " ) ; 
strClaimsCity = get ParameterValue ( "claims_city" ) ; 
strClaimsState = get Parame terVa lue ( "claims_s ta te ") ; 

lClaims Stat eld = atol {getParameterValue ( "claims_sta te_id" ) . c_str ( ) ) ; 
strClaimsZip = getParameterValue ( "claims_zip" ) ; 
strClaimsCountry = get ParameterVa lue ( "claims_country" } ; 

IClaimsCountryld = atol (getParameterValue { "claims_count ry_id " ) . c_s tr { ) ) ; 

s t r PhoneEmergency = get ParameterValue ( "phone_emergency" ) ; 

str PhoneMentalHeal th ~ get Parame terVa lue ( "phone_mental__heal th " ) ; 

str PhonePreCert = get Parame terValue { "phone_precert ") ; 

str PhoneBenef its = get ParameterValue { n phone_benef i ts ") ; 

str PhoneOther = get ParameterValue { "phone_other" ) ; 

strPlanCode = get Parame terValue ( "plan_code ") ; 

strPlanType = getParameterValue ( "plan_type" ) ; 

strPlanEffectiveDate = getParameterValue ( "plan_ef f ec tive_d t " ) ; 
str PolicyNumber = get ParameterValue { "pol icy__number " ) ; 
StrGroupNumber = get Parame terValue { "group_number ") ; 
strGroupName = get Par ameterValue ( "gr oup_name " ) ; 
s trSubLastName = getParameterValue ( " subscr iber_las t_name " } ; 



try 



Cr s_name 
Crs_address 
Cr s_phone 
Crs_cpi_mas ter 
Cr s_insurance 
Crs_company 



r s_name ; 
rs_address ; 
rs_phone; 
rs_cpi_master ; 
rs_insu ranee ; 
rs_company ; 
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strSubFirs tName = get ParameterValue ( " subscribe r_f irst_name" ) ; 
strSubMiddleName = get ParameterValue ( " subscribe r_middle_name " ) ; 
strSubRelationship = get ParameterValue ( "subscriber_rela tionship" ) ; 

ISubRelationshipId - atol (get ParameterValue { " subscriber _rela t ionship_i d" ) . c_str ( ) ) * 
strSubPhone = get ParameterValue ( "subscriber__phone" ) ; 

fSelflnsured = ( get ParameterValue {" sel f _insured_sw" ) == "1") ? true : false; 

//convert date in date time object. 
DATE dtPlanEf f ectiveDate; 
COleDateTime oledate; 

oledate . Par seDateTime ( strPlanEff ectiveDate . c_str ( ) ) ; 
dtPlanEf f ectiveDate - (DATE) oledate; 

if ( !dtPlanEf fectiveDate) 
{ 

//return error if date is made compulsary. 

} 

//get db, connect ion . 

pconn = m_pcoClient->getConnect ion ( ) ; 

//begin transaction 
pconn->beginTrans ( ) ; 

//get new audit id 

long lAuditld = getAudi t Id ( ) ; 

if (llAuditld) 

{ 

m_emLast . setError ( "Unexpected Condition !!! Cannot get new Audit ID !!!"); 
throw fSuccess = false; 

} 



// COMPANY: Create company record, 
char szBuf f er [20] ; 

//create company record only if company__id not provided. 

if ( ! ICompanyCpild) 

{ 

//fetch new cpi_id 
ICompanyCpild = getNewCpild ( ) ; 
if ( ! ICompanyCpild) 
{ 

m_emLast . setError { "Unexpected condition!!! Cannot get new cpi id for 
company !!!"); 

throw fSuccess = false; 

} 

string st rCompanyCpi Id = "cpi"; 

strCompanyCpild += 1 toa (ICompanyCpi Id, szBuffer, 10); 

//insert new record in cpi_master 
rs_cpi_master . clear Par ms { ) ; 
rs__cpi_master . setRecordSetToNul 1 ( ) ; 

rs_cpi_master . set Active Command { "cmd Insert Empty Re cord" ) ; 
rs_cpi_mas ter . set Parameter ( "cpi_id" , _variant_t (ICompanyCpild ) ) ; 
rs_cpi_master . set Parameter ( "cpi_text_id" , _vaxiant_t ( strCompanyCpild . c__str 



0 ) ) 



rs_cpi_master . setParameter ( "audi t_id" , _variant_t (lAuditld) ) 

if ( ! pconn->execute (r s_cpi_master ) ) 

< 

m_emLast . setError ( pconn->getLa stEr ror ( ) ) ; 



C:\Docu ments and Settings\billyhe\My . . . \LCSer vicesNLCBr oker \xc_addlnsurance . cpp 



5 



throw f Success 



false ; 



} 



//create company record in company table 
rs_company . clear Pa rms ( } ; 



rs_company 
r s_company 
rs_company 
r s_company 
r s_company 
if 
{ 



. setRecordSetToNull ( ) ; 

. setActiveCommand ( "cmdUpdate" ) ; 

, set Parameter { "cpi_id" , _variant_t (ICompanyCpild)); 

, set Parameter ( "name " , _variant_t { str CompanyName . c_s tr { ) ) ) 

. setParameter ( "audit id", variant t (lAuditld)); 



({fSuccess = pconn~>execute (is company) ) == false) 

m_emLast . setError (pconn->getLastError ( ) ) 
throw fSuccess = false; 



} 



//create company address record 
r s_address . clear Pa rms ( ) ; 
rs_address . setRecordSetToNull ( ) ; 
rs^address . setActiveCommand ( "cmdupda t e 
r s_addr ess . setParameter 
rs_address .setParameter 
r s_address . set Parameter 
rs_address . setParameter 
rs__ad dress .set Parameter 
rs_address . setParameter 
rs_address . setParameter 
rs_address . setParameter 
rs_address . setParameter 
r s_address . setParameter 
rs_address . setParameter 
if (IStateld) rs_address 
if (ICountryld) rs 



') ; 

"cpi_id", _variant_t (ICompanyCpild)); 
"act ive_sw" , _variant_t ("1")); 
"primar y_sw" , _variant_t ("1")); 
"purpose", _variant_t ("Work")); 
"streetl", _variant_t ( strStreet 1 . c_str ( ) ) ) ; 
"street2", _variant_t ( s tr Street 2 . c_str () ) ) ; 
"city", _variant_t ( s tr Ci ty . c_str ( ) ) ) ; 
"state", _variant_t ( strState . c_str ( ) ) ) ; 
"zip", _variant_t ( s t r Zip . c_str ( ) ) ) ; 
"country", _variant_t ( s trCount r y . c_s tr ( ) ) ) ; 
"audit_id", _variant_t (lAuditld) ); 
. setParameter { "state_id" , __variant_t (IStateld) ); 
address . setParameter ( " count ry_id" , _variant_t (ICountryld) ) ^ 



if ((fSuccess = pconn->execute ( r s__addr ess ) ) — 
t 

m_emLast . setError (pconn->getLastEr ror { ) ) ; 
throw fSuccess = false; 

} 



false) 



//create company claims address record 
rs_address . clearParms ( ) ; 
rs_address . setRecordSetToNull ( ) ; 
rs^address . setActiveCommand ( "cmdUpdate" ) ; 

rs_address . setParameter ("cpi_id", _variant_t (ICompanyCpild) ) ; 
rs_address . setParameter ( "act ive_sw" , _variant_t ("1"}); 
rs_address . setParameter ( "purpose" , _variant__t ( "Claims" ) ) ; 

rs_address . setParameter ("streetl", _variant_t ( str Claims Street 1 . c_str () ) ) ; 
rs_address .setParameter ("street2", _variant_t (strClaimsStreet2.c_str () ) ) ; 
rs__address . setParameter (" city" , _variant_t (strClaimsCity. c_s tr ( ) ) ) ; 
rs__address .set Parameter ("state", _variant_t (strClaims State. c_str ( ) ) ) ; 
rs_address . setParameter ("zip" , _ variant _t (strClaimsZip.c_str{))); 
rs_address .setParameter ( "country" , _variant_t ( s tr CI aims Count ry . c_s tr ( ) ) ) ; 
rs_address . set Parameter ( "audit_id" , _variant_t (lAuditld)); 

if ( IClaimsStateld) rs_address . setParameter ( "state_id" , _variant_t ^ 
(lClaimsStateld) ) ; 

if ( lClaimsCountryld) rs_address . setParameter ( "country_id", _variant_t 
( lClaimsCountryld) ) ; 

if ((fSuccess - pconn->execute (rs_addr ess ) ) == false) 
{ 

m_emLas t. setError (pconn->get La stError (} ) ; 
throw fSuccess = false; 

} 

//create company phone records 
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//create emergency room phone 
r s__phone .clearParms ( ) ; 
rs_phone . setRecordSe tToNull ( ) ; 
rs__phone . se tActi veCommand { "cmdUpdate" ) ; 

rs_phone . set Parameter ( "cpi__id M , _variant_t (ICompanyCpild)); 

rs_phone .set Parameter { "number" , _variant_t ( str PhoneEmergency . c_s tr ( ) ) ) ; 

rs__phone . setParameter ( "purpose" , _variant_t ("EROOM")); 

rs_phone . setParameter ( "active_sw" , _variant_t ("1")); 

rs_phone . setParameter ( "audi t_id" , _variant_t (lAuditld)); 

if ((fSuccess = pconn~>execute (rs_phone ) ) == false) 

{ 

m_emLast .setError (pconn->getLastError()); 
throw fSuccess = false; 

} 

//create mental health phone 
rs_phone . clear Par ms () ; 
rs_phone . setRecordSe tToNull ( ) ; 
rs_phone . setActi veCommand ( "cmdUpdate" ) ; 

rs_phone . set Parameter (" cpi_id" , __variant_t (ICompanyCpild)); 

rs_phone . setParameter ( "number" , __variant_t ( s trPhoneMentalHeal th . c_str { } ) ) ; 

rs_phone . setParameter ( "purpose" , _variant_t ( "MHEALTH" ) ) ; 

rs_phone . set Parameter ( "act ive_sw" , _variant_t ("1")); 

rs_phone . setParameter ( "audit_id" , __variant_t {lAuditld)); 

if ((fSuccess = pconn->execute (rs_phone ) ) == false) 

{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

) 

//create Pre Certification phone 
rs_phone . clearParms ( ) ; 
rs_phone . setRecordSe tToNull ( ) ; 
rs_phone . setActi veCommand ( " cmdUpdate" ) ; 

rs_phone . set Parameter ("cpi_id", __variant__t (ICompanyCpild) ) ; 

rs^phone .set Para meter ( "number " , __var iant__t (strPhonePreCert. c_s tr ( ) ) ) ; 

rs_phone . set Parameter ( "purpose" , _variant_t ( " PRECERT" ) ) ; 

rs_phone . set Parameter ( "active_sw" , _variant_t ("1")); 

rs_phone . set Parameter ( "audi t_id" , __variant__t (lAuditld)); 

if ((fSuccess - pconn->execute (r s__phone ) ) == false) 

{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 

//create Benefits phone 
rs_phone .clearParms () ; 
rs_phone . setRecordSe tToNull ( ) ; 
rs_phone . set Act i veCommand ( "cmdUpdate " ) ; 

r siphon e .setParameter ( "cpi_id" , _variant_t ( ICompanyCpi Id ) ) ; 

rs_phone . setParameter { "number" , _variant__t { s tr PhoneBene f i t s . c_str ( ) ) ) ; 

rs_phone .set Parameter ("purpose", _variant_t ( "BENEFITS" ) ) ; 

rs_phone . set Parameter ( "active_sw" , _variant_t ("1")); 

rs__phone . setParameter ( "audi t__id" , __variant_t (lAuditld)); 

if ((fSuccess = pconn~>execute (rs_phone) ) == false) 

I 

m_emLast . setError (pconn ->get La stError ( ) ) ; 
throw fSuccess = false; 

} 

//create Other phone 

rs_phone .clearParms ( ) ; 

rs_phone - setRecordSe tToNull ( ) ; 

r siphon e . set Act i veCommand ( " cmdUpdate" ) ; 

rs_phone . set Parameter ("cpi_id", _variant_t (ICompanyCpild) ) ; 

r s_phone .setParameter ( "number" , _variant_t ( str PhoneOther . c_s tr ( ) ) ) ; 

rs_phone . set Parameter ( "purpose" , _variant_t ("OTHER")); 
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rs_phone . set Parameter ( "act ive_sw" , _variant_t ("1")); 
rs_phone . set Parameter ( "audit_id" , _variant_t (lAuditld) ) ; 
if {{fSuccess = pconn->execute (rs_phone) ) == false) 
{ 

m_emLast . setError (pconn->getLastEr ror ( ) ) ; 
throw fSuccess = false; 

} 

} 

+ + * + + * + + + 

// SUBSCRIBER: Create subscriber record/update user record if self insured 
/********+**************+*^ 

long lSubCpild = 0; 
long INameRecId = 0; 
long lPhoneRecId = 0; 



//create subscriber if not self insured. 

if { ! f Self Insured) 

{ 

//fetch new cpi_id 
lSubCpild = getNewCpild ( ) ; 
if (HSubCpild) 
{ 

m_emLast . setError { "Unexpected condition!!! Cannot get new cpi id for 
subscriber !!!"); 

throw fSuccess = false; 

} 

string strSubCpild = "cpi"; 

strSubCpild += ltoa (lSubCpild , szBuffer, 10); 

//insert new record in cpi_master 
rs_cpi_mas ter .clear Parms ( ) ; 
rs_cpi_master . setRecordSetToNull ( ) ; 

r s_cpi_master . setActi veCommand { "cmdlnser tEmpty Record" ) ; 

rs_cpi_master . set Parameter { n cpi_id" , _var iant_t (lSubCpild) ) ; 

rs_cpi_master . set Parameter ( "cpi_text_id" , _variant_t (strSubCpild . c_str ( ) ) ) ; 

rs_cpi_master . set Parameter ( "audit_id" , _variant_t ( lAudi tld) ) ; 

if ( ! pconn->execute ( r s_cpi_master ) ) 

{ 

m_emLast . setError ( pconn-> get Last Er ror ( ) ) ; 
throw fSuccess - false; 

} 

//The subscriber name and phone records has to be created 
//so nullify the record id's so it will create new records. 
INameRecId = 0; 
lPhoneRecId - 0; 

} 

else 
{ 

//user is self insured, so subscriber info is actually the user info, 
//so update the user info passed under the subscriber fields 

string strRecId; 

//user is the subscriber as he is self insured. 
lSubCpild = lCpild; 

//Get the record id's so the user information is updated 
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//get rec_id for user name record for updation 
INameRecId = 0; 
rs_name . clearParms ( ) ; 
rs_name . setRecordSetToNull ( ) ; 

rs_name . set Active Command ( "cmdFetchRecordld" ) ; 

rs__name . set Parameter { "cpi_id" , _variant_t (lSubCpild)); 

if ({fSuccess = pconn->execute (rs_name) ) — false) 

{ 

m_emLast . setError (pconn->getLa stEr ror ( ) ) ; 
throw fSuccess = false; 

} 

if (! rs_name . isEmpty () ) 
{ 

rs_name . getField ( "rec_id" , strRecId) ; 
INameRecId = a tol ( strRecId . c_str ()) ; 
rs_name . setRecordSetToNull ( ) ; 

} 

//get rec_id for user phone record for updation 

lPhoneRecId = 0; 

r s__phone .clearParms ( ) ; 

rs_phone . setRecordSetToNull () ; 

rs_phone . setActi veCommand ( "cmdFe t chRecordldByPurpose" ) ; 
rs_phone . set Parameter ( "cpi_id" , _variant_t (lSubCpild)); 
rs_phone . set Parameter { "purpose " , _variant_t ("Home")); 
rs_phone . set Parameter ( "line_type", _variant_t ("Voice")); 
if ((fSuccess = pconn->execu te ( r s_phone ) ) ~~ false) 
{ 

m^emLast . setError (pconn->getLa stErr or ( ) ) ; 
throw fSuccess = false; 

} 

if ( ! r s_phone . isEmpty ( ) ) 
{ 

rs^phone .getField ( "rec_id" , strRecId) ; 
lPhoneRecId = atol ( strRecId . c_str ()) ; 
rs_phone . setRecordSetToNull ( ) ; 

}. 

) 



//update subscriber /user name record 

if (! str SubLas tName . empty () ) 

{ 

rs_name . clearParms ( ) ; 

rs_name . setRecordSetToNull ( ) ; 

rs_name . setActi veCommand ( "cmdUpda te" ) ; 

rs_name . setParameter ( "cpi_id" , _variant_t (lSubCpild)); 
rsjame . set Parameter ( "active_sw" , _variant_t ("1")); 

rs_name . set Parameter ( " las t_name" , _var iant_t ( str SubLas tName . c_str ( ) ) ) ; 
rs__name . set Parameter ( "middle_name " , _variant_t ( s tr SubMiddleName . c_str ( ) ) ) ; 
rs__name .setParameter ( " f irs t_name" , _variant_t ( s trSubFirs tName . c__str ( ) ) ) ; 
rs_name . setParameter ( "audit_id" , _variant_t { lAuditld) ) ; 

if (INameRecId) 

rs_name . set Parameter ( "rec_id" , _variant_t (INameRecId)); 

if ((fSuccess = pconn->execute (rs_name) ) == false) 
{ 

m_emLast .setError ( pconn~>getLa s tEr ror ( ) ) ; 
throw fSuccess = false; 

} 

} 

//update subscriber /user HOME phone record 
rs_phone . clearParms ( ) ; 
rs_phone . setRecordSetToNull ( ) ; 
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r s_phone . setActiveCommand { " cmdUpdate" ) ; 

rs_phone . setParameter ( "cpi_id" , _variant_t ( lSubCpi Id) ) ; 

rs_phone . set Par araeter { "number" , _variant__t (strSub Phone . c_str ( ) ) ) ; 

rs_phone . setParameter < "active_sw" , _variant__t ("1") ) ; 

r s_phone . set Parameter ( "audit_id" , _variant_t (lAuditld)); 

if ( lPhoneRecId) 

rs_phone . setParameter ( " rec_id" , _variant_t (lPhoneRecId)); 

if ((fSuccess = pconn->execute ( rs_phone) ) ===== false) 
{ 

m_emLast .setError(pconn->getLastError() ) ; 
throw fSuccess = false; 

} 



// INSURANCE: Create insurance record. 

y + ^ + + + + + + + * + * + + * + + * + * + + * + * 

//create insurance records. 

rs_insu ranee . clear Pa rms ( ) ; 

r s_insurance .setRecordSetToNull () ; 

rs_insurance . setActiveCommand { "cmdUpdate" ) ; 

rs_insurance . set Parameter ( "cpi_id" , _variant_t (lCpild)); 

rs_insurance . set Parameter ( "active_sw" , _variant_t ("1"}); 

rs_insurance .setParameter { "ins_co_id" , __variant_t { ICompanyCpi Id ) ) ; 

rs_insurance .setParameter { " insured_id" , _variant_t ( lSubCpild) ) ; 

rs_insu ranee . setParameter { "group_name " , _variant_t ( s trGroupNarne . c_str { ) ) ) ; 

rs_insurance. setParameter ( "qroup_number " , _variant_t ( strGroupNumber . c_str { ) ) ) ; 

r s_insurance . setParameter { "policy_n umber" , _variant_t ( s tr PolicyNumber . c_str ( ) ) ) ; 

rs_insur a nee . setParameter ( " ins_plan_code " , _variant_t ( strPlanCode . c_str ( ) ) ) ; 

rs_insu ranee .setParameter ( "planet ype_code " , _variant_t ( str PlanType . c_str ( ) ) ) ; 

if (dt PlanEf f ectiveDate) 

rs_insurance. setParameter { "plan_ef f_dt" , _variant_t (dtPlanEff ectiveDate ) ) ; 
rs_insurance . setParameter ( " insured_rela t ionship" , __variant_t { strSubRelationship . / 
c_str())); 

rs_insu ranee . setParameter ( "audit_id" , _variant_t { lAuditld) ) ; 
if (lSubRelationshipId) 

rs_insu ranee .setParameter ( " insured_r elation ship_id" , _variant_t / 
(lSubRelationshipId) ) ; 

if {(fSuccess = pconn->execute ( r s__insurance ) ) false) 
{ 

m_emLast . set Err or (pconn->getLastError () ) ; 
throw fSuccess = false; 

} 



catch (bool fError) 

f Error ; 

catch (_com_error & e) 

m_emLast .setError(e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : addlnsurance ]") ; 
fSuccess = false; 
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//commit or Roll back the transaction. 

if (pconn) 

{ 

if (f Success) pconn->commi tTrans ( ) ; 
else pconn->rollbackTrans ( ) ; 

} 

return fSuccess; 
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#include "stdafx.h" 
#include "LCBroker.h" 
#include "CoLCBroker . h" 
#include "xcLCBroker . h" 
#define _xc_cpp 

//////////////////////////////////// 
// compile unit for cpp commands 

#include "xcLCBroker . cpp" 
#include "xcLCBrokerModify .cpp" 



//General Commands include 
#include "xc openDatabase . cpp" 
#include "xc loginUser . cpp" 
#include "xc execSearch . cpp" 
#include n xc_createUser.cpp" 
#include "xc_changePassword . cpp" 
#include "xc_setBloodPressure . cpp" 
#include "xc_setUserBiographics . cpp" 
#include "xc_setSLMDLocations . cpp" 
#include "xc_setEmployment Inf o . cpp" 
#include "xc_setUse rPhysicians . cpp" 
#include "xc_addlnsurance . cpp" 
#include "xc_set Insurance . cpp" 
#include "xc_setAllergyInf o . cpp" 
#include "xc_setHealthConditions . cpp" 
#include "xc_set Immunizations ♦cpp" 
#include "xc_setMedications . cpp" 
#include "xc_setSurge rylnf o .cpp" 
#include "xc_setTherapyInf o . cpp" 
#include "xc set FamilyHistory . cpp" 
#include "xc set Imaginglnf o . cpp" 
#include "xc setReminder . cpp" 
#include "xc setCholesterolReadings . cpp" 
#include "xc setUnregisteredUse r . cpp" 
#include "xc_setUserPre f erence . cpp" 

//Get Commands include 

#include "xc getAddressInf o . cpp" 

#include "xc getAdmit . cpp" 

#include "xc getAllergylnf o . cpp" 

#include "xc getBiographicsInf o . cpp" 

#include "xc getCholesterolReadings . cpp" 

#include "xc ge tCodes . cpp" 

#include "xc getConvert Pc . cpp" 

#include "xc getCurrConvert Pc . cpp" 

#include "xc getCurrPreAdmit . cpp" 

#include "xc getCurrLoa . cpp" 

#include "xc getCurrTransf er . cpp" 

#include "xc getDischarge . cpp" 

#include "xc getEmployment Inf o . cpp" 

#include "xc getCurrEncounter . cpp" 

#include "xc getCurrEncounterid . cpp" 

#include "xc getEncounterTree . cpp" 

#include "xc getExternallDs . cpp" 

#include "xc_get FamilyTree . cpp" 

#include "xc_get Insurancelnf o .cpp" 

#include "xc_get Loa . cpp" 

#include "xc_getMiscIDs . cpp" 

#include "xc_getPhone . cpp" 

#include "xc_get Physicallnf o . cpp" 

#include "xc_get PreAdmit . cpp" 

#include "xc_getStats . cpp" 

#include "xc_getTransf er . cpp" 

#include "xc_getAccount Inf o . cpp" 
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getGuarantorlnf o .cpp" 
getCareDirectives . cpp" 
getDis ability . cpp" 
getlnsuranceCoverage .cpp" 
getSecuritylnf o . cpp" 
get Diagnosis . cpp" 
get Physician Info .cpp" 
get Patient Valuable s . cpp" 
get LoaHistory . cpp" 
get Discharge History. cpp" 
getCpildExists . cpp" 
getCodeCats . cpp" 
getCpild . cpp" 
getName . cpp" 
getPerson .cpp" 
getCompany . cpp" 
getNok . cpp" 
getNokAll .cpp" 
getNewEncounterld. cpp" 
get Physicians . cpp" 
getFacilities .cpp" 
getPocs . cpp" 
getRooms . cpp" 
getBeds . cpp" 
get Ins Plans . cpp" 
get InsPlansByCompany . cpp" 
get Patient St at us . cpp" 
get Patient Location. cpp" 
get Inpatients . cpp" 
getPasswordReminder . cpp" 
getldealBPRanges .cpp" 
getBloodPressureReadings .cpp" 
getPulseReadings .cpp" 
getWeightReadings . cpp" 
getSLMDLocations .cpp" 
getUserBiographics . cpp" 
getUserPhysicians . cpp" 
getUserlnsurance .cpp" 
getHealthConditions .cpp" 
getlmmunizations .cpp" 
getMedications . cpp" 
get Surgery Info . cpp" 
getTherapylnfo . cpp" 
getFamilyHistory .cpp" 
get Imaging Info . cpp" 
get Reminder . cpp" 
getMassMailing . cpp" 
getNewUnregUserld . cpp" 
getLif eclinicStats . cpp" 
getUser Preference . cpp" 
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upt Insurance Plan .cpp" 
uptLoa.cpp" 
uptPatient . cpp" 
uptBiographics . cpp" 
uptPhone . cpp" 
uptPreAdmit . cpp" 
uptTransfer . cpp" 
uptldMap . cpp" 
uptNok . cpp" 
uptMiscIds . cpp" 
uptName . cpp" 
upt Person . cpp" 
uptPhysical . cpp" 



//Insert Commands Include 

#include "xc insCodeCategory . cpp" 

#include "xc insCpiMaster . cpp" 

#include "xc insCpiUser . cpp" 

#include "xc insDiagnosis . cpp" 

#include "xc insEncounterLog . cpp" 

#include "xc insEncounterMap . cpp" 

#include "xc insExternalCode . cpp" 

#include "xc insInternalCode . cpp" 

#include "xc insSysOrg . cpp" 

#include "xc insEncounter . cpp" 

#include "xc_insMassMailing . cpp" 
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tinclude "xc OtherCommands . h" 
#include "Encryptor . h" 
#include " rs_cpi_use r . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY ( Cxc_change Pas swo rd ) 

bool Cxc_changePassword : : execCommand ( } 
{ 

bool fSuccess - true; 
CSdoConnection * pconn = NULL; 

try 
{ 

Crs_cpi_user rsCpiUser; 
string strCpild; 

string strOldPassword, strNewPas sword, st rPassReminder; 

pconn - m_pcoClient->getConnection ( ) ; 
pconn->beginTrans ( ) ; 



if (getParm ("cpi_id", strCpild) == false) 
{ 

m_emLast . setError { "\"cpi_id\" is a required parameter."); 
throw fSuccess - false ; 

} 

if (getParm( "old_password" / st rOldPassword) == false) 
{ 

m_emLast . setError ( "\"oldpassword\" is a required parameter"); 
throw fSuccess = false; 

} 

if (getParm ( "new_pas sword " , strNewPassword) == false) 
{ 

m emLast . setError ( "\"newpassword\" is a required parameter"); 
throw fSuccess = false; 

} 

if (getParm ( "password__reminder " , strPassReminder ) == false) 
{ 

m emLast . setError ( "\"password_reminder\" is a required parameter"); 
throw fSuccess = false; 

} 



//check if cpi id is null. 

if (strCpild. empty { ) ) 

{ 

m emLast .setError {"\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

//get the user login, password. 

rsCpiUser . setActiveCommand ( "cmdFetchUserLogin" ) ; 

rsCpiUser . setParm ( "cpi_id" , _variant_t (strCpild . c_str ())) ; 

if (pconn->execute ( rsCpiUser ) == false) 
{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 

//check if user present, 
if ( rsCpiUser . isEmpty () ) 
{ 

m_emLast « "The user does not exist."; 
throw fSuccess = false; 
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} 

//check if passed in old password is the valid one. 
CEncryptor encryptor; 

string strEncryptedPassword, strPassword; 

strEncryptedPassword = {char *) ( bstr t) rsCpiUser . get Field ( "password" ) ; 
encryptor. Decrypt (strEncryptedPassword . c_str { ) , NULL, strPassword) ; 

if (strOldPassword !- strPassword) 
{ 

m emLast . setError ( "Invalid Password."); 
throw fSuccess = false; 

} 

//encrypt new password 

encryptor . Encrypt { st rNewPassword . c_str ( ) , NULL, strPassword) ; 

//change password. 
rsCpiUser. clear Parms ( ) ; 
rsCpiUser . setRecordSetToNull ( ) ; 
rsCpiUser. set Ac tive Command ( "cmdUpdate") ; 

rsCpiUser. setParameter("cpi_id" / _variant_t (st rCpild . c_st r ( ) ) ) ; 

rsCpiUser . setParameter ( "password", _variant_t ( strPassword . c_str { ) ) ) ; 

rsCpiUser. set Parameter ( "password_reminder" , _variant_t ( st rPassReminder . c_st r ( ) ) ) ; 

rsCpiUser. setParameter ("audit_id", _variant_t (getAudit Id ( ) ) ) ; 

if ((fSuccess = pconn->execute (rsCpiUser) ) «» false) 
{ 

m_emLast . setError (pconn->get LastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

catch (bool fError) 

{ 

fError; 

} 

catch (_com_error & e) 
{ 

m emLast . setError (e ) ; 
fSuccess - false; 

} 

catch (...) 
{ 

m emLast . setError ( "Unkown exception raised. [Command : changePassword ]") ; 
fSuccess - false; 

} 

//commit or Roll back the transaction. 

if (pconn) 

{ 

if (fSuccess) pconn->commitTrans ( ) ; 
else pconn->rollbackTrans { ) ; 

} 



return fSuccess; 

} 
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tifndef xc createuser h 
#define xc_createuser_h 

class Cxc_createUser : public CxcLCBroker 
{ 

protected: 

enum { MASK VIP = 1, 

MASK ENCOUNTER = 2, 
MASK SYSTEM = 4, 
MASK HCP = 8, 
MASKJJSER =16 

} / 

public : 

virtual bool execCommand ( ) ; 
CXC_DECLARE_FACTORY ( } 

}; 



#endif 
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#include "xc DeleteCommands . h" 
#include "rs_audit.h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_ FACTORY <Cxc_delAudit ) 

bool Cxc_delAudit : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 

{ 

Crs_audit rsAudit; 

rsAudit . setActiveCommand ( "cmdDelete" ) ; 
//get connection 

CSdoConnection * pconn = m_pcoClient->getConnect ion ( ) ; 
//execute 

if ({fSuccess = pconn->execute (rsAudit) ) -= false) 
m_emLast . setError (pconn->getLastError ( ) ) ; 

catch (_com_error & e) 

m^emLast . setError (e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : delAudit ]") ; 
fSuccess - false; 



return fSuccess; 

} 
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#include "xc DeleteCommands . h" 
#include "rs_diagnosis . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY(Cxc_delDiagnosis) 

bool Cxc_delDiagnosis : lexecCommand ( ) 
{ 

bool f Success « false; 

try 
{ 

Crs diagnosis rsDiagnosis; 

string strEncId, strRedd, st rEncActionld; 

rsDiagnosis . setActiveCommand ( "cmdDelete" ) ; 

//required paramters. 

if (getParm{ "enc_id", strEncId) — false) 

{ 

m_emLast . setError { "\"enc_id\" is a required parameter."); 
return false; 

} 

if (getParm( "rec_id", strRedd) == false) 
{ 

m_emLast . setError ( "\"rec_id\" is a required parameter."); 
return false; 

} 

//set the parameters 

_variant_t vEncID ( atol (strEncId . c_st r ( ) ) ) ; 
_variant_t vRecID (atol (strRedd. c_str ( ) ) ) ; 
rsDiagnosis . setParameter ( "enc id", variant t(vEncID)); 
rsDiagnosis . setParameter ( "rec_id" , _variant_t (vRecID) ) ; 

//set the optional parameter 

if (getParm ( "enc_action_id" , strEncActionld) == true) 
{ 

variant t vEncActionID (atol (strEncActionld . c str())); 
rsDiagnosis . setParameter ( "enc_action_id", _variant_t ( vEncActionID) ) ; 

} 

//get connection 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 
//execute 

if ((fSuccess = pconn->execute ( rsDiagnosis ) ) == false) 
m_emLast . setError (pconn->get LastError ( ) ) ; 

atch (_com_error & e) 

m emLast . setError (e) ; 
fSuccess = false; 

atch( . . . ) 

m_emLast . setError ( "Unkown exception raised. [Command : delDiagnosis ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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#include "xc DeleteCommands . h" 
#include "rs_allergy . h" 

///////////////////////////////////////////////////////////////// 
CXC_ IMP LEMENT_ FACTORY (Cxc_deleteAlle rgy ) 

bool Cxc_deleteAllergy : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs allergy rs allergy; 
string st rCpild, st rRecId; 

//get connection 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 
//required paramater. 

if (getParm("cpi_id", strCpild) == false) 
{ 

m_emLast .setError ("\"cpi_id\" is a required parameter."); 
return false; 

} 

//optional parameter 
getParm("rec_id", strRecId) ; 

long lCpild = atol ( strCpild . c_str ()) ; 
long lRecId = atol ( st rRedd . c_st r < ) ) ; 

if MICpild) 
{ 

m emLast .setError ("\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

//set the parameter 

if (IRecId) 

{ 

rs allergy . setAct iveCommand ( "cmdDeleteByRecId" ) ; 

rs_allergy.setParameter ("rec id", variant t {IRecId)); 
} " 
else 

rs_allergy . setActiveCommand { "cmdDeleteAll" ) ; 

rs allergy. setParameter { "cpi id" , _variant_t ( lCpild ) ) ; 

if ( ! pconn->execute { rs_allergy) ) 

{ 

m emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

catch (bool fError) 
{ 

fError; 

} 

catch (__com_error & e) 
{ 

m_emLast . setError (e ) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast. setError ("Unkown exception raised. [Command : deleteAllergy ] ") ; 
fSuccess = false; 
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} 

return fSuccess; 

} 
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#ifndef xc deleteCommands h 
#define xc_deleteCommands_h 

#include "stdafx.h" 
#include "xcLCBroker.h" 

////////////////////////////////////////////////////////////////////////////////// 
// 

// Declaration of all the XML delete Commands Classes. 
// 

// Macro derives the class from CxcLCBroker 
// 

/////////////////////////////////////////////////////////////////////////////////// 

DECLARE XML DELETECMD CLASS (Cxc delAudit) 
DECLARE XML DELETECMD CLASS (Cxc delDiagnosis ) 
DECLARE XML DELETECMD CLASS (Cxc delHcpOf f ice ) 
DECLARE J(ML_DELETECMD_CLASS(Cxc_delHcpSpecialty) 
DECLARE_XML_DELETECMD_CLASS (Cxc_delete Physical ) 
DEC LARE_XML_DELETECMD_C LASS (Cxc_deleteEmploymentInfo) 
DEC LARE_XML_DELETECMD_C LASS (Cxc_deleteUserPhysician ) 
DEC LARE_XML_DE LETECMD_C LASS (Cxc_delete Insurance ) 
DECLARE_XML_DE LETECMD_C LASS ( Cxc_de 1 e t e Al le rgy ) 
DECLARE_XML_DELETECMD__C LASS (Cxc_deleteHealthConditions ) 
' DEC LARE_XML_DELETECMD_C LASS (Cxc_delete Immunizations ) 
DECLARE_XML_DELETECMD_C LASS (Cxc_deleteMedicat ions ) 
DECLARE_XML__DELETECMD_CLASS (Cxc_deleteSurgeryInf o ) 
DEC LARE_XML_DE LETECMD_C LASS (Cxc_deleteTherapyInf o) 
DEC LARE_XML_DE LE T E CMD_C LAS S ( Cxc_deleteFamilyHistory ) 
DEC LARE_XML_DE LET E CMD_C LAS S ( Cxc_de letelmaginglnfo) 
DECLARE_XML_DE LETECMD_CLASS ( Cxc_de let eReminde r ) 
DEC LARE_XML_DELETECMD_C LASS ( Cxc_de leteUnregisteredUser ) 



#endif 
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#include "xc De lete Commands . h" 
#include "rs employe rs . h" 
#include "rs_cpi_master .h" 



///////////////////////////////////////////////////////////////// 
CXC_ I MP LEMENT_ FACTORY (Cxc_deleteEmploymentInf o ) 

bool Cxc_deleteEmploymentInfo : : execCommand ( ) 
{ 

bool f Success = true; 
CSdoConnection * pconn = NULL; 

try 

{ 

Crs employers rsEmployers; 
Crs cpi master rsCpiMaster; 
string st rCpild, strRedd, strEmployerld; 

//required parameters 

if (getParm("cpi_Id", strCpild) == false) 
{ 

m_emLast . setError { "\"cpi_id\ " is a required parameter."); 
throw fSuccess = false; 

} 

if (getParm("rec_id" / strRedd) == false) 
{ 

m_emLast. setError ("\"rec_id\" is a required parameter."); 
throw fSuccess = false; 

} 

//optional parameter 

getParm ( "employer_id" , strEmployerld) ; 

if ( strCpild. empty ( ) ) 
{ 

m emLast . setError ( "\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

if {strRedd . empty () ) 
{ 

m emLast . setError ( "\"rec_id\" is NULL."); 
throw fSuccess = false; 

} 



//get connection 

pconn = m_pcoClient->getConnection ( ) ; 

//start transaction 
pconn->beginTrans ( ) ; 

//delete the employment record 
rsEmployers . clearParms ( ) ; 
rsEmployers . setRecordSetToNull ( ) ; 
rsEmployers. setActiveCommand { "cmdDelete") ; ■ 

rsEmployers. setParameter ("cpi id", variant t ( atol ( strCpild . c str()))); 
rsEmployers. set Parameter (" rec_id" , _variant_t ( atol (strRecId.c_str ( ) ) ) ) ; 
if (! pconn->execute (rsEmployers) ) 
{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 



//if employer_id is provided, delete employer information. 
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long lEmployerld = atol ( strEmployerld . c_str { ) ) ; 

if (lEmployerld) 

{ 

//check if the employer is referenced by other users 

rsEmployers . setAct iveCommand ( "cmdCheckRe ferenceExist " ) ; 
rsEmployers.setParameter ( "employe r_id" , _variant_t (lEmployerld) ) ; 
if (! pconn->execute ( rsEmployers ) ) 
{ 

m emLast . set Error (pconn->get LastError ( ) ) ; 
throw fSuccess = false; 

} 

//if employer is not referenced then delete the employer 

if (rsEmployers . isEmpty( ) ) 

{ 

rsCpiMaster . setActiveCommand ( "cmdDelete" ) ; 

rsCpiMaster. set Parameter ( "cpi_id M , _variant_t ( lEmployerld) ) ; 

if ( !pconn->execute (rsCpiMaster) ) 

{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

else 

rsEmployers . setRecordSet ToNull ( ) ; 

} 

} 

catch (bool fError) 
{ 

fError; 

} 

catch (_com_error & e) 
{ 

m emLast . setError (e ) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m emLast .setError ("Unkown exception raised. [Command : deleteEmployment Info ]") ; 
fSuccess = false; 

} 



//commit or Roll back the transaction. 

if (pconn) 

{ 

if (fSuccess) pconn->commitTrans ( ) ; 
else pconn->rollbackTrans { ) ; 

} 



return fSuccess; 

} 
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#include "xc DeleteCommands . h" 
#include "rs_f amily_hi story . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_deleteFamilyHistory) 

bool Cxc_deleteFamilyHistory : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs family history rs f amily_history; 
string st rCpild, strRedd; 

//get connection 

CSdoConnection + pconn = m_pcoClient->getConnection ( ) ; 
//required paramater. 

if (getParm("cpi_id" / strCpild) == false) 
{ 

m_emLast .setError ("\"cpi_id\" is a required parameter."); 
return false; 

} 

//optional parameter 
getParm( "rec_id", strRedd) ; 

long lCpild =» atol {strCpild . c_str ( ) ) ; 
long lRecId = atol {strRedd . c_str ()) ; 

if (UCpild) 

{ 

m emLast. setError ("\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

//set the parameter 

if (IRecId) 

{ 

rs family history . setActiveCommand ( "cmdDeleteByRecId" ) ; 
rs_family_history. set Parameter ( " rec__id" , _variant_t (IRecId) ) ; 

else 

rs_family_history. setActiveCommand ( "cmdDeleteAll") ; 

rs family history . set Parameter ( "cpi id" , _variant_t (lCpild) ) ; 

if ( ! pconn->execute { rs_f amily_history ) ) 

{ 

m emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

catch {bool fError) 
{ 

fError; 

} 

catch (_com__error & e) 
{ 

m_emLast . setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast .setError ("Unkown exception raised. [Command : deleteFamilyHistory ]") ; 
fSuccess = false; 
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} 

return fSuccess; 

} 
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#include "xc DeleteCommands . h" 
#include " rs_health_condit ion , h" 

///////////////////////////////////////////////////////////////// 
CXC__ I MP LEMENT_ FACTORY ( Cxc_deleteHealthConditions ) 

bool Cxc_deleteHealthConditions : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs health condition rs_hc; 
string st rCpiId,strRedd; 

//get connection 

CSdoConnection * pconn = m_pcoClient->getConnect ion ( ) ; 
//required paramater. 

if <getParm("cpi_id" / strCpild) == false) 
{ 

m_emLast . setError ( "\"cpi__id\" is a required parameter."); 
return false; 

} 

//optional parameter 
getParm { "rec_id" , strRecId) ; 

long lCpild = atol ( strCpild . c_str ()) ; 
long IRecId = atol ( st rRedd . c_st r ( ) ) ; 

if {! lCpild) 
{ 

m emLast .setError { "\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

//set the parameter 

if (IRecId) 

{ 

rs he . setActiveCommand ( "cmdDeleteByRecId" ) ; 
rs_hc. set Parameter ( "rec_id" , _variant_t (IRecId) ) ; 

} 

else 

rs_hc . setActiveCommand ( "cmdDeleteAll" ) ; 

rs he . setParameter ( "cpi id" , _variant_t ( lCpild) ) ; 

if ( ! pconn->execute ( rs_hc ) ) 

{ 

m emLast . setError (pconn->get LastError ( ) ) ; 
throw fSuccess - false; 

} 

} 

catch (bool fError) 
{ 

fError; 

} 

catch (_com_error & e) 
{ 

m_emLast . setError (e ) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unkown exception raised. [Command : deleteHealthConditions 3 ") ; 
fSuccess = false; 
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return f Success / 
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#include "xc DeleteCommands . h" 
tinclude "rs_imaging . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY(Cxc_deleteImagingInfo) 

bool Cxc_deleteImagingInfo : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs imaging rs imaging; 
string st rCpild, st rRecId; 

//get connection 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 
//required paramater. 

if (getParm("cpi_id", strCpild) == false) 
{ 

m_emLast .setError ("\"cpi_id\" is a required parameter."); 
return false; 

} 

//optional parameter 
getParm( "rec_id", strRecId) ; 

long lCpild = atol ( strCpild . c_str ()) ; 
long IRecId = atol ( st rRecId . c_st r ( ) ) ; 

if (IlCpild) 
{ 

m emLast .setError ( "\ "cpi_id\ " is NULL."); 
throw fSuccess - false; 

} 

//set the parameter 

if (IRecId) 

{ 

rs imaging . set Active Command ( "cmdDeleteByRecId" ) ; 
rs_imaging.setParameter ("rec id", variant t (IRecId)); 
} ~ 

else 

rs_imaging . setActiveCommand ( "cmdDeleteAll" ) ; 

rs imaging. setParameter ( "cpi id" , _variant_t (lCpild) ) ; 

if ( ! pconn->execute ( rs_imaging) ) 

{ 

m emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

catch (bool fError) 
{ 

fError; 

} 

catch (_com_error & e) 
{ 

m_emLast . setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast .setError ("Unkown exception raised. [Command : delete Imaginglnfo ]") ; 
fSuccess = false; 
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} 

return fSuccess; 
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#include "xc DeleteCommands . h" 
#include "rs_immunization . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_delete Immunizations ) 

bool Cxc_deleteImmunizations : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs immunization rs immunization; 
string strCpild, strRedd; 

//get connection 

CSdoConnection * pconn = m_pcoClient->getConnection { ) ; 
//required paramater. 

if (getParm( "cpi_id", strCpild) == false) 
{ 

m_emLast .setError {"\"cpi_id\" is a required parameter."); 
return false; 

} 

//optional parameter 
getParm ( "rec_id", strRecId) ; 

long lCpild = atol (strCpild. c_str ( ) ) ; 
long IRecId = atol ( st rRecId . c_st r ( ) ) ; 

if (! lCpild) 
{ 

m emLast .setError ("\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

//set the parameter 

if (IRecId) 

{ 

rs immunization . setActiveCommand ( "cmdDeleteByRecId" ) ; 

rs_immunization . setParameter { "rec id", variant t (IRecId)); 
} ~ 
else 

rs_immunizat ion . setActiveCommand ( "cmdDeleteAll " ) ; 

rs immunization. setParameter ("cpi id", _variant J: (lCpild) ) ; 

if ( ! pconn->execute ( rs_immunization ) ) 

{ 

m emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

catch (bool fError) 

{ 

fError; 

} 

catch (_com_error & e) 
{ 

m_emLast . setError (e ) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast .setError ( "Unkown exception raised. [Command : deletelmmunizations ]") ; 
fSuccess = false; 
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} 

return fSuccess; 

} 
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^include "xc_DeleteCommands . h" 

#include 11 rs_insurance . h" 
#include "rs_cpi_master . h" 
#include 11 rs_employers . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_delete Insurance) 

bool Cxc_deletelnsurance : : exec Command ( ) 

{ 

bool f Success = true ; 
CSdoConnection * pconn = NULL; 

try 

{ 

Crs_cpi_master rs_cpi_master ; 
Crs_employers rs_employers ; 
Crs_insured rs_insured; 
Crs_insurance rs_insurance ; 

Crs_insured_dependents rs_insured_dependents ; 

string strCpild, strRecId, strSubld, strCompanyld; 

//required parameters 

if (getParm( "cpi_Id" , strCpild) == false) 

{ 

m_emLast . setError ( "\ "cpi_id\ 11 is a required parameter."); 
throw f Success = false; 

> 

if (getParm { "rec_id" , strRecId) == false) 

{ 

m_emLast . setError (" \ "rec_id\ 11 is a required parameter."); 
throw f Success = false; 

} 

//optional parameter 

getParm( " subscr iber_id" , strSubld) ; 

getParm{ " company_id" , strCompanyld) ; 

if ( strCpild . empty () ) 

{ 

m_emLast . setError ( "\ "cpi_id\ " is NULL."); 
throw fSuccess = false; 

} 

if (strRecId. empty{) ) 
{ 

m_emLast .setError { " \ " rec_id\ " is NULL."); 
throw fSuccess = false; 

} 

long lCpild = atol ( strCpild . c_str ()) ; 

long lSubCpild = atol ( strSubld . c_str ()) ; 

long lRecId = atol ( strRecId . c_str ()) ; 

long ICompanyld = atol ( strCompanyld . c_str ()) ; 

//get connection 

pconn = m_pcoClient- >getConnect ion { ) ; 

//start transaction 
pconn- >beginTrans () ; 



///////////////////////////////////////////////////////////////// 
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//check if self insured or dependent and delete insurance records 
///////////////////////////////////////////////////////////////// 

//if subscriber_id provided, user is dependent. 

if (lSubCpild) 

{ 

//check if subscriber is referenced by other users. 
rs_insured_dependents . clearParms ( ) ; 
rs_insured_dependents . setRecordSetToNull { ) ; 

rs_insured_dependents . setActiveCommand ( "cmdCheckRef erenceExist 11 ) ; 
rs_insured_dependents . setParameter ( " insured_cpi_id" , _variant_t (lSubCpild) ) ; 
rs_insured_dependents . setParameter ( "dependent_cpi_id" , _variant_t ( lCpild) ) ; 
if ( ! pconn- >execute (rs_insured_dependents) ) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

//delete subscriber from database if not referenced 
if (rs_insured_dependents . isEmpty ( ) ) 

{ 

rs_cpi_master . setActiveCommand ( "cmdDelete" ) ; 

rs_cpi_master . setParameter { "cpi_id" , _variant_t ( lSubCpild) ) ; 
if ( ! pconn- >execute (rs_cpi_master ) ) 

{ 

m_emLast . setError (pconn- >getLastError { ) ) ; 
throw fSuccess = false; 

} 

} 

else 

{ 

//delete only the insured_dependent record of subscriber for this user. 
rs_insured_dependent s . clearParms ( ) ; 
rs_insured_dependents . setRecordSetToNull ( ) ; 
rs_insured_dependents . setActiveCommand ( "cmdDelete" ) ; 

rs_insured_dependents . setParameter { 11 insured_cpi_id" , _variant_t * 
(lSubCpild) ) ; 

rs_insured_dependents . setParameter ( "dependent_cpi_id" , _variant_t ^ 

(lCpild)); 

if ( ! pconn- >execute (rs_insured_dependents) ) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

} 

else 

{ 

//user is self insured, delete user record from insured table. 

rs_insured . clearParms ( ) ; 

rs_insured. setRecordSetToNull ( ) ; 

rs_insured. setActiveCommand ( "cmdDelete" ) ; 

rs_insured. setParameter ( "cpi_id" , _variant_t (lCpild)); 

rs_insured. setParameter ( "rec_id" , _variant_t (lRecId)); 

if ( !pconn->execute (rs_insured) ) 

{ 

m_emLast . setError (pconn- >getLas tError { ) ) ; 
throw fSuccess = false; 

} 

rs_insured . setRecordSetToNull { ) ; 

} 



//delete company if id provided, 
if (ICompanyld) 

{ 
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//check if company is referenced , 

//(i.e. check if the plan id's of this company are referenced) 
rs_insurance . clearParms ( ) ; 
rs_insurance . setRecordSetToNull ( ) ; 

rs_insurance . setAct iveCommand ( "cmdCheckCompanyRef Exist " ) ; 
rs_insurance . setParameter ( n company_id" , _variant_t ( ICompanyld) ) ; 
if ( ! pconn- >execute (rs_insurance ) ) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw f Success = false; 

} 

if ( ! rs_insurance . isEmpty ( ) ) 

{ 

fReferenced = true; 

rs_insurance . setRecordSetToNull ( ) ; 

) 

//also check if company is referenced as an employer 
rs_employers . clearParms ( ) ; 
rs_employers . setRecordSetToNull ( ) ; 

rs_employers . setAct iveCommand ( 11 cmdCheckRef erenceExist " ) ; 
rs_employers . setParameter ( "employer_id" , _variant_t (ICompanyld) ) ; 
if ( ! pconn- >execute ( rs_employers ) ) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw f Success = false; 

} 

if { ! rs_employers . isEmpty ( ) ) 

{ 

fReferenced = true; 

rs_employers . setRecordSetToNull ( ) ; 

} 

//delete company from database if not referenced 
if { ! fReferenced) 

{ 

rs_cpi_master . setAct iveCommand ( "cmdDelete 11 ) ; 

rs_cpi_master . setParameter ( "cpi_id" , _variant_t (ICompanyld) ) ; 
if ( ! pconn- >execute ( rs_cpi_master) ) 

{ 

m__emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

} 



catch (bool f Error) 

f Error ; 

catch (_com_error & e) 

m_emLast . setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : deletelnsurance] ") ; 
fSuccess = false; 
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//commit or Roll back the transaction, 
if (pconn) 

{ 

if (fSuccess) pconn- > commit Trans () ; 

else pconn- >rollbackTrans () ; 

} 

return fSuccess ; 

} 



\ 
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H include "xc_Dele teCommands . h" 
¥, include " rs_medi cation . h" 

//////////// ////////////////V////////////// //////////// ////////// 
CXC_ I M PL EMENT_ FACTORY ( Cxc_de let eMedi cat ions ) 

bool Cxc_deleteMedicat ions : : execCommand { ) 
{ 

bool fSuccess = false; 
try 

Crs_medica tion rs_medica tion ; 
string strCpild, strRecId ; 

//get connection 

CSdoConnection + pconn = m_pcoClient->getConnect ion { ) ; 

//required paiarnater . 

if ( get Parm ( "cpi_id" , strCpild) == false) 
{ 

m_emLast . setError ( " \ "cpi_id\ " is a required parameter. ") ; 
return false; 

} 

//op Li on a 1 parameter 
getParm { "rec_id" , strRecId) ; 

long lCpild = atol { strCpild . c_str {)) ; 
long lRedd = a tol ( strRecId . c_str ()) ; 

if (UCpild) 
{ 

m_emLast . setError (" \ M cpi_id\ " is NULL."); 
throw fSuccess = false; 

} 

//set. the parameter 

if (lRedd) 

{ 

r s_medication . se tAct iveCommand ( " cmdDeleteByRecId " ) ; 

r s_medication . set Parameter ( "rec__id" , __var iant_t { IRecId) ) ; 

} 

else 

r s_medication . set Act iveCommand ( " cmdDeleteAll " ) ; 

rs__medi cation . set Parameter { "cpi_id" , _variant_t ( lCpild) ) ; 

if (! pconn- >exe cute ( rs_medica tion ) ) 

{ 

m_emLas t .setError {pconn- >get La stErr or () ) ; 
throw fSuccess - false; 

} 

} 

catch (bool fError) 
{ 

fError ; 

} 

catch (_com_error & e) 
{ 

m_emLast . setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast .setError ("Unkown exception raised. [Command : deleteMedica t ions ] 'M ; 
fSuccess - false; 



C:\Documents and Settings\billyhe\My . . . \LCBroker \xc deleteMedica tions . cpp 
} 



return f Success; 
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# include "xc_Dele teCommands . h" 
# include " r s_physical . h 11 

////////////////////////////// •'' /////////////// //////////////////.'' 
CXC__ I MPLEMENT_ FACTORY (Cxc_dele te Physical ) 

bccl Cxc_deletePhysical : : execCommand ( ) 
{ 

booi f Success = false; 

try 
{ 

Crs_physical rsPhysical; 
string st rCpi Id, strRedd ; 

//get connection 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

//required paramater. 

if (getParm ( "cpi_id" , strCpild) == false) 
{ 

m_emLast . setEr ror { " \ "cpi_id\ " is a required parameter. ") ; 
return false; 

} 

if (strCpild . empty () ) 
{ 

m_emLast . setError ( "\"cpi_id\" is NULL."); 
return false; 

} 

rsPhysical . setAct iveCommand ( " cmdDelete " ) ; 

rsPhysical . set Parameter ( " cpi_ id" , _variant_t {atol (strCpild. c_str {)))}; 

//execute 

if ((fSuccess = pc on n->execute(rs Physical)) == false) 
m_emLast .setError (pconn->getLastError ( } ) ; 



ca tch (_com_error & e) 

m_emLast . setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [ Command : deletePhysical ]") ; 
fSuccess - false; 



return fSuccess; 

) 
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# include "xc_DeleteCommands . h" 
# include "rs_reininders . h" 

//W /;///////////////////////////////////////// /////////////////// 

CXC_IMPLEM EN T_ FACTORY ( Cxc_dele t eReminder ) 

bool Cxc_deleteReminder : : execCommand { ) 
{ 

bool fSuccess = false; 

bool f Trans In Progress ~ false; 

CSdoConnection * pconn; 

t r y 
{ 

Crs_reminder rs_reminder; 
string strCpild, strRecId; 

//gee connection 

pconn = m__pcoClient->getConnection { ) ; 

//required parameter. 

if ( getParm ( "cpi_id" , strCpild) false) 
{ 

m_emLast . setError ( "\ "cpi__id\ " is a required parameter."); 

r e t u r n false ; 

} 

//optional parameter 
getParm ( "r ec_id" , strRecId) ; 

long lCpild = a tol ( strCpi Id . c_s tr ( ) ) ; 
long IRecId = a tol ( strRecId . c_str ()) ; 

if (HCpild) 
{ 

m__emLast . setError ( " \ "cpi_id\ " is NULL."); 
throw fSuccess = false; 

} 

//set the parameter 

if (IRecId) 

i 

rs_reminder . setAct iveCommand ( 11 cmdDeleteByRedd" ) ; 

r s__reminder . set Parameter { "cpi_id" , _variant_t ( lCpild) ) ; 

r s__reminder . set Parameter ( "rec_id" , _variant_t (IRecId) ) ; 

} 

e .1 s e 
{ 

r s_reminder . setAct iveCommand ( "cmdDeleteByCpild" ) ; 
rs_reminder . set Parameter { " rm_cpi_id" , _variant_t (lCpild) ) ; 
rs_reminder . set Parameter ( "me_cpi_id" ,_var iant_t (lCpild) ) ; 

} 

pconn->beginTrans ( ) ; 

f Trans InProgres s - true; 

if ( ! pconn ->ex ecu te ( rs_r eminder ) ) 
{ 

m_emLast . setError (pconn->getLas tErr or ( ) ) ; 
throw fSuccess = false; 

) 

fSuccess = true; 

} 

cat c h (bool f E r r o r ) 
{ 
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f Error ; 

} 

catch(_com_error £• e) 
{ 

m_emLast . setError (e ) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unkown exception raised. {Command : deleteReminder ]") ; 
fSuccess - false; 

} 

if { f TransInProgress ) 
{ 

if (fSuccess) 

pconn->commi tTr ans ( ) ; 

else 

pconn->rollbackTrans ( ) ; 

} 

return fSuccess; 
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8 include " xc_Dele teCommands . h" 
# include "rs_surgery.h M 

/////////////////// /// /////////////////// //////////////////////// 
CXC_IMPLEMENT_ FACTORY (Cxc_dele te Surgery Info ) 

bool Cxc_dele teSurgerylnf o : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_ surgery rs_surgery; 
string s t r Cpi Id , s t rRedd ; 

//get connection 

CSdoConnection + pconn = m_pcoClient->getConnect ion { ) ; 

//required paidmater . 

if {getParm("cpi_id M , strCpild) == false) 
( 

m_emLas t . setEr ror { " \ "cpi_id\ " is a required parameter."); 

r e t u r n f a 1 s e ; 

} 

//optional y.c.i oiroior 
getParm ( "r ec_id" , strRedd); 

long lCpild = a tol { strCpild . c_str {) )_; 
long IRecId = a tol { s trRedd . c_str { ) ) ; 

if UlCpild) 
{ 

m_emLa s t . s e tEr r or ( " \ "cpi_id\ " is NULL."); 

thr cw f Succes s = false; 

) 

if (IRecId) 
{ 

rs_sur ger y . setAct i veCommand ( " cmdDe let eByRecId" ) ; 
rs_surgery . set Parameter { "rec_id" , _variant_t { IRecId) ) ; 

} 

else 

rs_surgery . setActi veCommand { "cmdDeleteAll " ) ; 

rs_surgery . set Parameter ( "cpi_id", __variant_t (lCpild) ) ; 

if ( ! pconn ->execute (rs_ surgery) ) 

{ 

m_emLast . setError (pconn->getLastErr or { ) ) ; 
throw fSuccess ~ false; 

} 

} 

catch {bool f Err or) 
{ 

f Err or ; 

} 

ca t ch (_com_error I e) 
{ 

m__emLast .setError (e) ; 
fSuccess = false; 

) 

c a t c hi...) 
{ 

m_emLast . setError ( "Unkown exception raised. [Command : deleteSurger ylnfo ]") ; 
fSuccess = false; 
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return f Sue cess; 
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# include "xc_Dele teCommands . h" 
^include " rs_therapy . h" 

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
CXC_IM PL EMENT_ FACTORY (Cxc_deleteTher apylnf o ) 

bool Cxc__dele teTherapylnf o : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_therapy rs_therapy; 
string s tr Cpild, strRecId ; 

//get connection 

CSdoConnection + pconn = m_pcoClien t ~>ge tConnect ion { ) ; 

//required par a mat sr. 

if (getParm ( "cpi_id" , strCpild) == false) 
{ 

m_emLas t . setEr ror ( " \ "cpi_id\ " is a required parameter."); 

return false; 

} 

//optional parameter 
getParm ( "rec_id" , strRecId) ; 

long lCpild = a tol ( strCpild . c_str ()) ; 
long lRecId = a t ol ( s t r Redd . c_s tr ( ) ) ; 

if (JlCpild) 
t 

m_emLas t . setError { " \ "cpi_id\ " is NULL."); 
throw fSuccess = false; 

} 

//set the parameter 

if (IRecId) 

{ 

rs_therapy . se t Act ive Command ( "cmdDeleteByRecId" ) ; 

rs_therapy . setParame ter ( "rec__id" , _va nan t_t { IRecId ) ) ; 
} ~ 
else 

rs_therapy . setAct i veCommand { "cmdDeleteAll " ) ; 

rs__therapy. set Parameter { "cpi_id" , _variant__t {lCpild) ) ; 

if ( ! pconn-> execute (r s_ therapy) ) 

{ 

m_emLast .setError {pconn->getLastError{) ) ; 
t h r ow fSuccess = false; 

} 

} 

catch {bool f Err or) 
{ 

f Error ; 

} 

catch (_com_error & e} 
{ ' 

m_emLast .setError ( e ) ; 

fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setError { "Unkown exception raised. [Command : deleteTherapylnf o] ") ; 
fSuccess = false; 
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} 



return f Success; 

} 
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!j include "xc__Dele teCommands . h" 
# include "rs_unregistered_user . h" 

///////////////////////////////// //////////////////////////////// 
C XC_ I MPLEMENT_ FACTORY (Cxc_dele teUnregis ter edUser ) 

bocl Cxc_deleteUnregisteredUser : : execCommand ( ) 
{ 

bcol fSuccess = false; 

try 
{ 

Crs_unregistered_user rsUnregUser; 
string strUserld; 

//get the user_id. 

if (getParm { "user_id M , strUserld) == false) 
{ 

m_emLas t . setErr or ( " \ n user_id\ " is a required parameter.") ; 
throw fSuccess = false; 

) 

//get db connection 

CSdoConnection * pconn = m_pcoClient->getConnection { ) ; 

////////////////////////////////////J,''//////////////////////'// 
// Delete the unregistered user record. 

///////////// ////////////////////////////////////////////// / / // / 

rs UnregUser. clear Pa rms{) ; 
rsUnregUser . setRecordSetToNull ( ) ; 
rsUnregUser . setAct iveCommand ( "cmdDelete" ) ; 

rsUnregUser. set Parameter ( "user__id" , _variant_t (atol (strUserld. c_str ()))); 

if ((fSuccess = pconn->execute ( rsUnregUser ) ) == false) 

{ 

m_emLast .setErr or (pconn->get La stError () ) ; 
throw fSuccess = false; 

} 



catch (bool f Err or) 

f Error ; 

ca t ch (__com_error & e ) 

m_emLast . setErr or (e ) ; 
fSuccess = false; 

catch ( . . . ) 

rn_emLast . setError ( "Unkown exception raised. [Command : deleteUnregis teredUser ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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# include "xc_DeleteCommands . h" 

£ include "rs_hcp.h" 
ifinclude "r s_cpi__mas ter . h" 
^include "rs_encounter.h" 

//////////; f ;///// ff ///////;// ////// / ///////////// ///////////// 

CX C_I MPLEM EN T_ FACTORY ( Cxc_dele t eUs er Physician ) 

bool Cxc_deleteUser Physician : : execCommand { ) 
{ 

bool fSuccess = true; 
CSdoConnection * pconn = NULL; 

try 
{ 

Crs_encounter_hcp r s_encoun ter_hcp; 
Cr s_cpi_mas ter r s_cpi_ma ster ; 

Crs_encounter rs_encounter; 
string strCpild, s trRecId, strHcpId; 



//required pa r a wsters 

if ( getParm ( "cpi_Id" , strCpild) == false) 
{ 

m_emLast . setEr r or { " \"cpi_id\ " is a required parameter."); 
t h r ow fSuccess - false; 

} 

if (getParm ( "r ec_id" , strRecId) == false) 
{ 

m_emLast . setEr ror { "\"rec_id\" is a required parameter."); 
throw fSuccess = false; 

} 

getParm ( "physi cia n_id " , strHcpId) ; 

if (strCpild. empty () ) 
{ 

m_emLast . setError { "\"cpi_id\" is NULL."); 

throw fSuccess = false; 

} 

if (strRedd.emptyO) 
{ 

m_emLast . setError { "\"rec_id\" is NULL."); 
throw fSuccess = false; 

) 

1 ong lEndd, 1 Re c I d ; 
lEncId = 0; 

lRecId = atol (strRecId . c_str ()) ; 

//yet connection 

pconn = m_pcoClient->getConnection ( ) ; 



pconn->beginTrans () ; 

//get the default encounter id for the user. [Assumed that user will have only I 
enccutner] 

rs_en counter . clear Pa rms () ; 
rs_encounter . se tRecor dSetToNul 1 ( ) ; 

r s_encounter . set Act ive Comma nd ( "cmdFetchCurr ent Id" ) ; 

rs_encounter . set Parameter { "cpi_id " , _va riant_t ( a tol { st rCpi Id . c_s t r ( ) ) ) ) ; 

if { ! pconn- > execute { r s_encount er ) ) 

{ 
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m_emLast . setError (pconn->getLas tEr ror ( ) ) ; 
throw f Success = false; 

} 

//get encounter id 

i f ( ! r s_encounter . i s Empty { ) ) 

{ 

string strEncId; 

rs_encounter . getField ( "enc_id" , strEncId) ; 
lEncId = atol (strEncId . c_str {)) ; 
r s_encounter . setRecordSetToNull ( ) ; 

} 

//check if default encounter present. 

if (UEncId) 

{ 

m_emLast . setError ( "No physician records present."); 
throw f Success « false; 

} 

//delete the physician record 

rs_en count er_hcp . clear Parms ( ) ; 

rs_en count er_hcp . setRecordSetToNull ( ) ; 

rs_encounter_hcp . set Act iveCommand ( "cmd Delete" ) ; 

rs_encounter_hcp . set Parameter { "enc_id" , __variant_t ( lEncId) ) ; 

rs_encounter_hcp . set Parameter { "rec_id" , _variant_t ( IRecId) ) ; 

if { ! pconn->execute (rs_encounter_hcp) ) 

{ 

m__emLast .setError {pconn->getLastEr ror () ) ; 
throw fSuccess = false; 

} 



//if phys icia n_ id i« provided, de.!.er« physician information. 

long lHcpId = a tol ( s t rHcpId . c_str { ) ) ; 

if (lHcpId) 

{ 

//check if the physician is referenced by other users 

r s_encounter_hcp . setActi ve Command { "cmdCheckRef erenceExis t " ) ; 
r s_encounter_hcp . set Parameter ( "hcp_id" , _variant_t { lHcpId) ) ; 
if ( ! pconn->execute (r s_encounter_hcp) ) 
{ 

m__emLast .setError (peon n->get La stErr or ()); 
throw fSuccess - false; 

} 

//if physician is net referenced then delete the physician 

if ( rs_encounter_hcp . i sEmpt y ( ) ) 

{ 

r s_cpi_ma s ter . set Active Command ( "cmd Delete " ) ; 

r s_cpi_mas ter . set Parameter ( "cpi_id" , _variant_t ( lHcpId) ) ; 

if ( ! pconn~>execu te {r s_cpi__ma ster ) ) 

{ 

m_emLas t .setError (pconn->getLastError () ) ; 
throw fSuccess = false;' 

} 

} 

else 

rs_encounter_hcp . setRecordSetToNull { ) ; 

) 



catch (bool f Error) 
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f Error ; 

catch (_com__error & e) 

m_emLast . setError {e ) ; 
fSuccess = false; 



catch ( . 



m_emLast . setError ( "Unkown exception raised. [Command : deleteUser Physician] ' 
fSuccess = false; 



/commit or Roll back the transaction, 
f (pconn) 



if (fSuccess) pconn->commi tTrans ( ) ; 
else pconn->rollbackTrans ( ) ; 



return fSuccess; 

} 
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If include "xc_DeleteCommands ■ n " 
# include "rs_hcp.h" 

/////////////// ///V/////V// ///////////////////////////// ///////// 
CXC_IM PL EMENT_ FACTORY ( Cxc_de iHcpOf f ice ) 

bool Cxc_delHcpOf f ice : : execCommand ( ) 
{ 

bool fSuccess = false; 



try 
{ 

Cr s_hcp_of f i ce rsHcpOffice; 
string strCpild, strRecId; 



rsHcpOffice. setActiveCommand ( "cmdDelete" ) ; 



//required par a rater . 

if (getParm("cpi_Id", strCpild) == false) 
{ 

m_emLast . setError ( " \"cpi_id\ " is a required parameter."); 
return false; 

} 



//set the parameter 

_variant_t vCpilD (atol (strCpild . c_str ( ) ) ) ; 
rsHcpOffice . set Parameter ( "cpi__id" , _variant_t ( vCpilD) ) ; 

//set the optional parameter 

if ( getParm ( "rec_id" , strRecId) — true) 

{ 

_var iant_t vRecID (atol (strRecId. c_str ( ) ) ) ; 
rsHcpOffice.setParameter( "rec_id" , _variant__t ( vReel D) ) ; 

} 

CSdoConnection + pconn = m_pcoClient->ge tConnect ion ( ) ; 



if {{fSuccess = pconn->execute (rsHcpOffice ) ) == false) 
m_emLast . setError (pconn->getLa stEr r or ( ) ) ; 

} 

ca ten (_com_err or & e) 
{ 

m_emLast .setError (e) ; 
fSuccess = false; 

} 

catch ( ... ) 
{ 

m_emLast . setError ( "Unkown exception raised. [Command : delHcpOf f ice] " ) ; 
fSuccess = false; 

} 



return fSuccess; 

} 
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# include "xc_DeleteCommands . h " 
#include "rs_hcp.h" 

/////////////////////////////////////////////// / ////////;/ /////// 
CXC_IMPLEMENT_FACTORY (Cxc_delHcpSpecial ty ) 

bool Cxc_delHcpSpecialty : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_hcp_specialty rsHcp; 
string s t r Cp i I d , strSpecialtyld; 

rsHcp . setActiveComraand ( "cmdDelete " ) ; 

//required paramtei:. 

if (getParm("cpi_Id'\ strCpild) raise) 
{ 

m_emLast . setError ( "\ "cpi_id\ " is a required parameter."); 

return false ; 

} 

//set the parameter 

_variant_t vCpilD (atol (strCpiId.c_str {) ) ) 

rsHcp. set Parameter ( "opioid" , _variant_t (vCpilD) ) ; 

/./set the optional parameter 

if ( getParm ( " speci a 1 ty_id" , strSpecialtyld) == true) 
{ 

_var iant_t vSpecialtyID(atol (strSpecialtyId.c_str() ) ) ; 
rsHcp . set Parameter ( "special ty_id" , _variant_t ( vSpecial tyl D) ) ; 

} 

/'/get c o n n e c t. i o n 

CSdoConnect ion * pconn = m_pcoClient->ge tConnect ion ( ) ; 

/ /execute 

if ((fSuccess = pconn->execute (rsHcp) ) = = false) 
m_emLast .setError ( peon n->get Last Err or { ) ) ; 

} 

catch (_coin_error & e) 
{ 

m_emLast . setError (e) ; 
fSuccess - false; 

} 

catch (...) 
{ 

rn_emLas t . setError { "Unkown exception raised. [ Command : de lHcpSpecia 1 i ty ]") ; 
fSuccess ~ false; 

} 



return fSuccess; 

} 
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H i fnde f _xc__execSear ch_h 
# de f i ne _x c_ex ec S ea r ch_h 

class C:-:c_execSearch : protected CxcLCBroker 
{ 

publ ic : 

virtual bool par seCommand (CXmlDocument * pdoc) ; 
virtual bool execCommand ( ) ; 
CXC_ DEC LARE_ FACTORY ( ) 

} ; 

flendif 
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# include "xc_getCommands . h" 
^ include "r s_account . h" 

//////// ////////////// //////// //////V/ ///////////// //////// ////// 
CXC_IMPLEM EN T_ FACTORY (Cxc_getAccountInf o) 

bool Cxc_getAccountInf o : : execCommand ( ) 
{ 

bool fSuccess - false; 

try 
{ 

Crs_account rsAccount; 
string strEncID; 

rsAccount . setActiveCommand ( "cmdFetch" ) ; 

if (getParm { "enc_id" , strEncID) false) 
{ 

m_emLast . setError { " \ " enc_id\ " is a required parameter."); 
return false; 

} 

_variant_t vEncID (atol ( strEncID . c_str ( ) ) ) ; 
rsAccount . set Parameter { "enc^id" , vEncID) ; 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

if ({fSuccess = pconn->execute ( rsAccount ) ) == false) 
m_emLast . setError (pconn->getLastEr ror ( } ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( " <ge tAccount Inf o/> " ) ; 
fSuccess - rsAccount.toXml ( + m__pdocResults) ; 

} 

ca ten (_com__error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch ( ... ) 

m_emLast . setError ( "Unkown exception raised. [Command : getAccountlnf o] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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^include "xc_getCommands . h" 
£ include "rs_address . h" 

///////// ////////////////////////////////////////////////// ////// 
CXC_IMPLEMENT_FACTORY (Cxc_ge tAddr ess Info) 

bool Cxc_getAddressInf o : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_address rsAddress; 
string strCpilD; 
string strActiveSw; 

rsAddress . setAct i veCommand ( "cmdFetch" ) ; 

if (getParm ( "cpi_id", strCpilD) false) 
{ 

m_emLast . setError ( " \ "cpi_id\ " is a required parameter."); 

return false; 

} 

_variant__t vCpiID{atol (StrCpilD. c_str ( ) ) ) ; 
rsAddress. set Parameter ( "cpi_id" , vCpilD) ; 

if (get Parm ( "active_sw" , strActiveSw) == true) 
{ 

_variant_t vActiveSw (atol ( strActiveSw . c_str ( ) ) ) ; 
rsAddress . setParameter ("active^sw", vActiveSw) ; 

) 

CSdoConnection * pconn - m_pcoClient->getConnect ion { ) ; 

if ((fSuccess = pconn~>execute (rsAddress ) ) == false) 
m_emLast . setError (pconn->ge tLas tError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul t s = new CXml Document { n <ge tAddr es s Inf o/>" ) ; 
fSuccess = rsAddress . toXml ( *m_pdocResults) ; 

} 

} 

catch (^com_error & e) 
{ 

m_emLast . setError (e) ; 
fSuccess = false; 

} 

c atch ( . . . ) 
{ 

m_emLast . setError ( "Unkown exception raised. [Command : getAddres s Inf oj ") ; 
fSuccess - false; 

} 

return fSuccess; 

} 
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jf include " xc_get Commands . h " 
# include " r s_admi t . h " 

///////////////////////////////////////////////////// //////////// 

CXC_IMPLEMENT_ FACTORY ( Cxc_ge t Admi t ) 

bool Cxc_get Admit : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_admit rsAdmit; 
string strEncId; 

rsAdmit . setAct i veCommand ( "cmdFetch" ) ; 

if (getParm { "enc_id" , strEncId) =- false) 
{ 

m em La st . setError ( " \ "ere i d \ " is a required parameter."); 

return false; 

} 

long lEncId = a tol ( strEncId . c_str ()) ; 

rsAdmit . set Parameter ( "enc_id" , _variant_t ( lEncId) ) ; 

CSdoConnection * pconn = m__pcoClien t->getConnec t ion { ) ; 

if ((fSuccess - pconn->execute ( rsAdmit ) ) == false) 
m_emLast . setError (pconn->getLastErroi ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXml Document (" <get Admit />") ; 
fSuccess = rsAdmit . toXml ( + m_pdocResul t s ) ; 

} 

} 

catch (_com_error & e) 
{ 

m_emLast .setError (e) ; 
fSuccess - false; 

} 

catch ( . . . ) 
{ 

m_emLast . setError ( "Un known exception raised. [ Command : getAdmitlnf o] ") ; 

} 

return fSuccess ; 

} 
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Sinclude " x c_g e t Comma n d s . h ,f 
if i n c 1 u de " r s_a llergy.h" 

///////:'///////////////////////////////////////////////////////// 

CXC_ I M PL EMENT__ FACTORY <Cxc_ge t Allergy Info ) 

bocl Cxc_getAllergyInf o : : execCommand ( ) 
{ 

b o o 1 fSuccess = false; 
try 

{ 

Crs_allergy rsAllergies; 
string strCpilD; 

if (getParm ( "cpi_id" , strCpilD) false) 
{ 

m_emLast . setError { "\"cpi_id\" is a required parameter."); 

r e t urn false; 

} 

CSdoConnection * pconn - m_pcoClient->getConnect ion ( ) ; 

//get allergies 

rsAl lergies . set Act iveCommand ( "cmd Fetch" ) ; 

rsAllergies . set Parameter { "cpi_id" , _variant_t ( atol { strCpilD . c_str ()))); 

if ((fSuccess = pconn->execute (rsAllergies ) ) == false) 

{ 

m_emLast .setError ( pconn ->get Las t Err or ( ) ) ; 

} 

e 1 s e 
{ 

m_pdocResul t s = new CXml Document ( " <getAl ler gylnf o/>" ) ; 
fSuccess - rsAllergies . toXml ( *m_pdocResults ) ; 

} 

} 

catch (_com_er ror & e) 
i 

m_emLas t .setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unkown exception raised. [Command : getAllergylnf o] ") ; 
fSuccess = false; 

} 

return fSuccess; 

} 
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^include "xc_ge tCommands . h" 
#include "rs_loca tion . h" 

//////////////////////////////// //if// /////// ///////// /////////// 

CXC_IMPLEMENT_ FACTORY (Cxc_ge tBeds ) 

bool Cxc_getBeds : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_bed rs_bed; 

rs_bed . setAct iveCommand ( "cmdFetchAll" ) ; 

CSdoConnection * pconn = m_pcoCl ient->getConnec t ion ( ) ; 

if ((fSuccess = pconn->execute (rs_bed) ) == false) 
m_emLast .setError(pconn->getLastError() } ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument { "<getBeds/>" ) ; 
fSuccess = rs_bed . toXml ( + m_pdocResults ) ; 

} 

) 

catch(_com_error & e) 
{ 

m_emLast . set Err or (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast. setError ("Unknown exception raised. [ Command : getBeds ]") ; 
fSuccess = false; 

} 

return. fSuccess; 

} 
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#include " xc_get Command s . h" 
#include "rs_name.h" 
#include "rs_person.h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_getBiographicalInfo) 

bool Cxc_getBiographicalInf o : : execCommand ( ) 

{ 

bool fSuccess = false; 
try 

{ 

Crs_name rsName ; 

Crs_person rsPerson; 

string strCpilD; 
string strAct iveSw; 

if (getParm( "cpi_id" , strCpilD) == false) 
{ 

m_emLast . setError ( " \ "cpi_id\ 11 is a required parameter."); 
return false; 

} 

_variant_t vCpilD (atol (strCpilD . c_str ( ) ) ) ; 
rsName . set Act iveCommand ( "cmdFetch" ) ; 
rsName . setParameter ( "cpi_id" , vCpilD) ; 

if (getParm ( " active_sw" , strActiveSw) == true) 

{ 

_variant_t vActiveSw {atol ( strActiveSw . c_str ()) ) ; 
rsName . setParameter ( "active_sw" , vActiveSw) ; 

} 

rsPerson . setActiveCommand ( "cmdFetch" ) ; 
rsPerson . setParameter ( "cpi_id" , vCpilD) ; 

CSdoConnection * pconn « m_pcoClient - >getConnection ( ) ; 

if ((fSuccess = pconn- >execute (rsName) ) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 

} 

else 

{ 

if ({fSuccess = pconn- >execute (rsPerson) ) == false) 
m_emLast . setError (pconn- >getLastError ( ) ) ; 

} 

if ( fSuccess) 

{ 

m_pdocResults = new CXmlDocument ( " <getBiographicsInf o/ > " ) ; 
fSuccess = rsName . toXml ( *m_pdocResults) ; 
fSuccess = rsPerson . toXml ( *m_pdocResults) ; 

} 

/* ///////////////////////////////////////////// /////////////////////////// 

//XML read testing code 



CXmlElement elroot, el table, el tag, el row, el data ; 
string strTag, s tr Da ta ; 
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b o o 1 f Found -false; • 
m_pdocResults->getRoot { &elroot) ; 
//get name tag 

f Found = elroot . getFirst (&eitable) ; 
eltable . getTag (strTag) ; 

//get row tag 

e 1 table . ge t Fi r s t ( & el r ow ) ; 

elrow. getTag (strTag) ; 

//get data 

f Found - elrow . get Firs tltem ( " cpi__id" , 6 eldata); 
if (f Found) eldata . getTex t ( strData ) ; 
fFouncl = elrow . getFirstl tern {" last_name" , ieldata); 
if (f Found) eidata . get Text (strData) ; 

fFound = elrov; . get Firstltem ( " f i rs t_name " , &eldata); 
if { fFound) eldata . getTex t ( strData ) ; 

fFound ~ elrow . getFirstl tern ( "middle_name" , ieldata) ; 
if (fFound) eldata . getText (strData) ; 
fFound = elrow. get Firstltem ( "nick_name" , &eldata); 
if { f Found ) e 1 da t a . g e t Tex t ( s t r Da ta ) ; 



//////////////////////////////////////////////////////////////////////// 

*/ 

catch (_com__error & e) 

m_emLast . setError (e) ; 
f Success = false ; 

catch (...) 

m^emLast . setError ( "Unkown exception raised. [Command : getBiographicallnf o] " ) ; 
fSuccess = false; 



return fSuccess; 

} 
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include " xc_Ge tCommands . h" 
# include " rs_blood_pressure . h" 

////////////////////////////////////////////////////////////'///// 
CXC_IMPLEMENT_FACTORY (Cxc_ge tBloodPressureReadings ) 

bool Cxc_getBloodPressureReadings : : execCommand ( ) 
{ 

bool fSuccess = true; 

try 
{ 

Cr s_blood_pressure rsBP; 

string strCpild, s trS tart Da te , strEndDate; 
CSdoConnection * pconn = m_pcoClient->getConnec tion ( ) ; 

//get cpi_id 

if ( get Parrn { " cpi_id" , strCpild) == false) 
{ 

m_emLast . setError ( "\ "cpi_id\ " is a required parameter."); 
throw fSuccess - false; 

} 

/ /optional parameters . 

getParm ( "start_dt'\ str StartDate ) ; 

getParm ( "end_dt" , strEndDate) ; 

// check if cpi_id i.s null. 

if ( strCpild . empty () ) 

{ 

m_emLast .setError { " \ " cpi_id\ " is NULL . " ) ; 
throw fSuccess - false; 

} 

long lCpild ~ atol (strCpild . c_str ()) ; 



//if star't_dt is not provided, then fetch all bp records. 

if ( strStartDate . empty () ) 

{ 

//fetch all bp records. 

rsBP . setActiveCommand ( "cmdFetchBPAl 1 " ) ; 
rsBP . setParm { "cpi_id" , _variant_t (lCpild)); 

} 

else 
{ 

COleDateTime oledate; 
DATE dtStartDate; 

//parse start_dt . 

oledate , Par seDa teTime (strStartDate.c_str{) ) ; 
dtStartDate = { DATE ) oledate; 
if (dtStartDate == NULL) 
{ 

m_emLast . setError (" \ "start_dt\ " is Invalid."); 
throw fSuccess = false; 

} 

if (strEndDate . empty () ) 
{ 

//fetch all bp records. 

rsBP . setActiveCommand ( " cmd Fetch BPByS tart Date" ) ; 
rsBP . setParm ( "cpi_id" , _variant_t {lCpild)); 
rsBP.setParm("start_dt", _variant_t (dtStartDate) ) ; 
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else 
{ 

DATE dtEndDate; 

/ /parse end_d t . 

oleda te . Par seDateTime ( s tr End Date . c_str ( ) ) ; 
dtEndDate = (DATE) oledate; 
if (dtEndDate == NULL) 

{ 

m_emLast . setError ( " \ " end_dt \ " is Invalid. ") ; 
throw f Success = false; 

} 

//get records from start dt. to endjdt 

r sBP . setActiveCommand ( "cmdFetchEPBy Date Range" ) ; 

rsBP . setParm ( "cpi_id" , _variant_t (lCpild) ) ; 

rsBP . setParm ( "start_dt" , _variant_t {dtStartDate ) ) ; 

rsBP. setParm( "end_dt" , _variant_t (dtEndDate)); 

} 

} 



if (pconn->execute (rsBP) ~~ false) 
{ 

m_emLast .setError(pconn->getLastError () ) ; 
throw f Sue cess = false; 

} 

else 
{ 

ra__pdocResults - new CXmlDocument ( "<getBloodPr essureReadings />") ; 
fSuccess = rsBP . toXml ( *m_pdocResul ts ) ; 

} 



catch (bool f Err or) 

f Error ; 
catch(_com_error & e) 

m_emLast . set Err or (e ) ; 

fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : getBloodPr essureReadings J ") ; 
fSuccess = false; 



return fSuccess; 

} 
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It include "xc_ge tCommands . h" 

# include "rs_care_directives . h" 

/////// ////// ///////////// 

CXC_IMPLEMENT_FACTORY (Cxc_ge tCa re Directives) 

bool Cxc_getCar eDirectives : : execCommand ( ) 
{ 

bool fSuccess = faise; 

try 
{ 

Crs_care_directives rsCare Directives; 
string StrCpilD; 

rsCare Directives. set Active Command ( "cmd Fetch" ) ; 

if (getParm ( "cpi_id" , strCpilD) == false) 
{ 

m_emLas t . setError ( "\ "cpi_id\ " is a required parameter."); 
return false; 

} 

_variant_t vCpilD (atol (strCpilD. c_str ( ) ) ) ; 
rsCare Directives. set Parameter ( "cpi_id", vCpilD) ; 

CSdoConnect ion + pconn = m_pcoClient->getConnection ( ) ; 

if ((fSuccess = pconn->execut e (rsCareDirectives ) ) == false) 
rn_emLas t .setError (pconn->getLastError() ) ; 

if (fSuccess) 
{ 

m_pdocResul t s = new CXmlDocument ( "<getCareDirectives/>" ) ; 
fSuccess = rsCar eDirectives . toXml ( *m_pdocResults) ; 

) 

} 

catch (_cora_error & e) 
{ 

m_emLast .setError (e) ; 
fSuccess = false; 

} 

catch ( ... ) 
{ 

m_emLast . setError ( "Unkown exception raised. [Command : ge tCareDirectives ]") ; 
fSuccess = false; 

) 

return fSuccess; 

} 
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It include "xc_GetCommands . h M 
^ include "r s_cholesterol . h" 

///////////////////// ////////////////////// ////////////////////// 
CXC_IM PLEM EN T_ FACTORY ( Cxc_ge tChol es ter olReadings ) 

bocl Cxc_getCholesterolReadings : : execCommand ( ) 
{ 

bool fSuccess - true; 



try 
{ 

Crs__choles terol rsCholesterol ; 

string strCpild; 
string strStartDate; 



CSdoConnection * pconn = m_pcoClient->getConnect ion ( ) ; 

//get cpi__id 

if (getParm ( "cpi_id" , strCpild) false) 
{ 

rn_emLast . setError ( "\"cpi_id\" is a required parameter."); 
throve fSuccess = false; 

} 



//check if opioid is null. 

if (strCpild. empty () ) 

{ 

m_emLast . setError ( "\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

long lCpild = atol ( strCpild . c_str ()) ; 

//optional parameters. 
getParm("start_dt", strStartDate) ; 

//if start _dt is not provided, then fetch ail bp records. 

if { strStartDate . empty () ) 

{ 

//fetch all bp records. 

rsCholesterol . se tActiveCommand ( " cmdFetchCholAl 1 " ) ; 
rsCholesterol . setParm { "cpi_id" , _variant_t (lCpild)); 

} 

else 
{ 

//get records from started!: to end_dt 

COleDateTime odtStart; 
DATE dateStart; 

//parse start dr. 

odtStart . Parse Da teTime {strStartDate. cjtr { ) ) ; 
dateStart = (DATE) odtStart; 
if (dateStart NULL) 
{ 

m_ernLast . setError ( " \ "start_dt\ " is Invalid."); 
throw fSuccess = false; 

} 



//fetch all bp records. 

rsCholesterol. se tActiveCommand ( "cmdFe t chChol By Date Range" ) ; 
rsCholesterol . setParm ( "cpi_id" , _variant_t (lCpild)); 
rsCholesterol . setParm ( "star t_dt" , _variant t (dateStart) ) ; 
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if (pconn->execute { r sCholes terol ) — false) 
{ 

m_emLast . set Error {pconn->ge tLas tEr ror ( ) ) ; 
throw fSuccess = false; 

} 

else 
{ 

m_pdocResul ts = new CXmlDocument ( " <getCholes terolReadings/> " ) ; 
fSuccess = r sCholesterol . toXml { + m_pdocResul ts ) ; 

} 



catch (bool fError) 

f Error ; 

catch (_com_error & e) 

m_emLast . setEr r or ( e } ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. (Command : getBloodPressureReadings] ") ; 
fSuccess - false; 



return fSuccess; 

} 
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#ifndef xc_getCodeCa t s_h 
#define xc_getCodeCats_h 

class Cxc_getCodeCats : public CxcLCBroker 
{ 

public : 

Cxc_getCodeCats ( } ; 

virtual bool par seCommand (CXmlDocument * pdoc) ; 
virtual bool execCommand ( ) ; 
CXC_DECLARE_FACTORY { ) 

} ; 



#endif 



C:\Documents a nd Set tings\billyhe\My . . . \LCServices\LCBroker\xc getCodes.cpp 1 

ff include "xc_getCommands . h" 
#include "rs_code_cache.h" 

////////////////////////// //////\- ////////////''///;///////// ////// 

CXC_IMPLEMENT__FACTORY (Cxc_getCodes ) 

bool Cxc_getCodes : : execCommand ( ) 
{ 

bool fSuccess = false; 



try 
{ 

Cr s_code_intern r sCodelntern ; 

Crs code cat rsCodeCat; 



.// get parras 
string strCatName; 
string s trGroupCa tName ; 
string s trGroupCodeName ; 



getParra { "cat_narne" , strCatName) ; 
getParm("gcat_name", s trGroupCa tName ) ; 
getParm { "gcode_name " , s trGroupCodeName ) ; 

// edit pa mis 

if { strCatName . empty () ) 

{ 

m_emLast . setEr ror ( " \ "cat_name\ " is a required parameter."); 
fSuccess = false; 
throw E__ F A I L ; 

} 



bool fSubGroup = ! s t rGroupCa tName . empty ( ) && ! s trGroupCodeName . empty () ; 

if ( ! fSubGroup) 

{ 

if ( strGroupCa tNarne . empty ( ) & & ! s t rGr oupCodeName . empty ( ) II 
! strGroupCatName . empty ( ) && st rGr oupCodeName . empty {} ) 

{ 

m_emLast . setError (" \ "gcat_narne\ " and \"gcode_name\" must either both be " 

"present or both be absent. ") ; 
fSuccess = false; 
throw E_ FA I L ; 

} 

} 

CSdoConnect ion * pconn = m_pcoClient->getConnect ion { ) ; 

// retrieve the cat a gory id 

rsCodeCat . setAct iveCommand ( "getCatld" ) ; 

rsCodeCat . set Parm ( "cat_name" , _variant_t {strCatName. c_str ( ) ) ) ; 

if (pconn->execute (rsCodeCat ) == false) 

{ 

m_emLas t .setError (peon n->get La stError () ) ; 
throw E_FAIL; 

} 

if ( rsCodeCat . isEmpty () ) 
< 

m_emLast << "Code catagory \"" << strCatName << "\" does not exist."; 
throw E_ FA I L ; 

} 

long ICatId = (long) r sCodeCat . get Field (" ca t__id ") ; 
long lSubCatld; 
long 1 Subcode Id; 

.// if doing a sub group, get the code_ic of the subgroup 
if (fSubGroup) 
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{ 

rsCodeCat . set Par m ( "cat_name" , _var iant__t ( st rGroupCa tName . c_str ( ) ) ) ; 

if (pconn->execute ( rsCodeCat ) .false) 

{ 

m_emLast .setError (pconn->getLast Error () ) ; 
threw E_ FA I L ; 

} 

if (rsCodeCat . isEmpty () ) 
{ 

m_emLast << "Sub code catagory V" << strGroupCatName << "\" does not 

exist."; 

threw E_ FA I L ; 

} 

lSubCatld = (long) r sCodeCa t . get Field (" cat_id" ) ; 

// get sub code id 

rsCodelntern . setActiveCommand ( "ge t SubGroupId" ) ; 
rsCode!ntern.setParm( " ca t_id" , _va riant_t ( lSubCatld ) ) ; 
rsCodelntern. setParm( "code " , _var iant_t ( s t rGr oupCodeName . c_str ( ) ) ) ; 
if (pconn->execute { rsCodelntern ) =- false) 
{ 

m_emLast .setError ( pconn->ge t La s t£r ror ( ) ) ; 
throw E_ F A I L ; 

} 

if (rsCodelntern . isEmpty () ) 
{ 

m_emLast << "Group code V" << s t rGroupCodeName << "\" does not exist."; 
throw E_ FA I L ; 

} 

lSubCodeld = {long} rsCodelntern . getField ( "code_id" ) ; 

} 

// retrieve the set of codes 

if (fSubGroup) 

{ 

rsCodelntern . setAct i veC omnia nd ( "ge t Subcode Set " ) ; 
rsCodelntern . set Par m ( "ca t_id" , _variant_t ( ICatId) ) ; 
rsCodelntern . set Par m ( " group_code_id" , _variant_t ( lSubCodeld) ) ; 

} 

else 
{ 

rsCodelntern . setActiveCommand ( "ge tCodeSe tByCa t Id " ) ; 
rsCodelntern . set Par m ( "ca t_id" , _variant_t ( 1 Cat Id) ) ; 

} 

if (pconn->execute {rsCodelntern ) false) 
{ 

m_emLast .setError (pconn->getLas t Err or ( ) ) ; 
throw E_ FA I L ; 

} 

m_pdocResul ts = new CXml Document ( "<getCodes />") ; 
fSuccess - r sCodelntern . toXml { + m_pdocResul t s ) ; 

} 

catch (_com_error & e) 
{ 

m_emLast .setError (e ) ; 
fSuccess = false; 

} 

catch (HRESULT hrError) 
{ 

hrError; 

fSuccess = false; 

} 

catch (...) 
{ 
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m^eraLast . setError ( "Unkown exception raised, f Command : getCodes ]") ; 
fSuccess = false; 

} 

return fSuccess; 

} 
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#ifndef xc_getCommands_h 
#define xc_ge tCommands_h 

#include "stdafx.h" 
#include "xcLCBroker . h" 

//Specific Commands Include 
^include M xc_getStats .h" 
^include "xc_ge tCodeCats . h" 



///////////////////// 



'/////////////// 



'/// 



'///////.. 



// Declaration of most of the XML aet Commands Classes . 
// 

// Macro derives the class from CxcLCBrcker 



/////// 


ff/fi 


/////// 
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( Cxc_get Ac count Inf o) 
(Cxc_getAddressInf o) 
(Cxc_getAdmit ) 
(Cxc_getAllergyInf o) 
(Cxc_getBiographicalInf o) 
( Cxc__getCareDi recti ves ) 
(Cxc_getChole sterol Readings } 
(Cxc__getCodes ) 
(Cxc_getConvertPc) 
(Cxc_getCur rConver tPc) 
( Cxc_ge t Cur r En counter ) 
(Cxc_getCurr Encounter Id) 
(Cxc_getCur rLoa ) 
(Cxc_getCur rPr e Admit ) 
(Cxc_getCurrTransf er ) 
(Cxc_ge t Diagnosis ) 
(Cxc_ge t Disability ) 
(Cxc__get Discharge ) 
(Cxc_get Discharge Hi story) 
( Cxc__get Employment Inf o) 
(Cxc_getEn counter Tree ) 
(Cxc_getExternalIDs ) 
(Cxc_getFarailyTree) 
(Cxc_getGuarantorInf o) 
(Cxc_getInsuranceCover age ) 
( Cxc_get Insurance Inf o ) 
(Cxc_getLoa ) 
(Cxc_getLoaHi story) 
(Cxc_getMiscIDs ) 
{Cxc_get Patient Valuables ) 
(Cxc_getPhone ) 
{Cxc_getPhysicalInf o) 
(Cxc_getPhysicianInf o) 
(Cxc_ge t Pre Admit ) 
(Cxc_getSecur itylnf o) 
{ Cxc_ge tTransf er ) 
( Cxc_getCpi Id Exist s ) 
( Cxc_ge t Codes ByName) 
(Cxc_getCpiId) 
(Cxc_get Person) 
(Cxc_getName ) 
(Cxc_getNok) 
(Cxc__getNokAll) 
( Cxc_ge t Company ) 
( Cxc_ge tNewEncounter Id ) 
( Cxc_get Physic i ans ) 
(Cxc_getFacili ties ) 
(Cxc getPocs) 
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DECLARE_XML_GETCMD_CLASS ( Cxc_get Rooms ) 
DECLARE_XML_GETCMD_CLASS ( Cxc_ge tBeds )' 
DECLARE_XML_GETCMD_CLASS ( Cxc_ge t I n s Pi ans ) 
DECLARE_XML_GETCMD_CLASS { Cxc_ge 1 1 ns PI ansByCompany ) 
DECLARE_XML_GETCMD__CLASS ( Cxc_get Pa tient Status ) 
DECLARE_XML_GETCMD_CLASS <Cxc_get Pa t lent Location) 
DECLARE_XML_GETCMD_CLASS ( Cxc_ge t In Pa t i ent s ) 
DECLARE_XML_GETCMD_CLASS { Cxc_get Pas swor dReminder ) 
DECLARE_XML_GETCMD_CLASS (Cxc_get IdealBPRanges ) 
DEC LARE_XML_GETCMD_C LASS (Cxc_ge t Blood Pre s sure Readings ) 
DECLARE__XML__GETCMD_CLASS ( Cxc_getPul seReadings ) 
DEC LARE_XML_GETCMD__C LASS { Cxc_getWeigh t Reading s ) 
DEC LARE_XML_GETCMD_C LASS ( Cxc_ge t SLMDLoca t ions ) 
DECLARE_XML_GETCMD_CLASS (Cxc_getUser Biographies ) 
DECLARE_XML_GETCMD__CLASS ( Cxc_getU se r Physician s ) 
DECLARE_XML_GETCMD_CLASS ( Cxc_getUser Insurance ) 
DECLARE_XML_GETCMD_CLASS ( Cxc__ge tHea 1 1 hCondi t i ons ) 
DECLARE_XML_GETCMD_CLASS ( Cxc_ge t Immuni z a t i ons ) 
DECLARE_XML_GETCMD_CLASS (Cxc_getMedica tions ) 
DECLARE_XML_GETCMD_CLASS (Cxc_getSurgeryInf o) 
DECLARE_XML_GETCMD_CLASS {Cxc_getTher apylnf o) 
DECLARE_XML_GETCMD_CLASS <Cxc_get FamilyHis tor y ) 
DECLARE_XML_GETCMD_CLASS {Cxc_get Imaging Info) 
DECLARE_XML_GETCMD_CLASS {Cxc_getReminder ) 
DECLARE_XML_GETCMD_CLASS ( Cxc_ge tMa s sMa i 1 i ng ) 
DECLARE__XML_GETCMD_CLASS {Cxc_ge tNewUnr egUser Id ) 
DEC LARE__XML__GETCMD__C LASS (Cxc_getLif eclinicSt a t s ) 
DECLARE_XML_GETCMD_CLASS (Cxc_getUser Preference ) 



Sendif 



Cj. \Documents and Settings \billyhe\My . . . \LCServices\L CBroker \xc getCompany . cpp 1 

* include "xc_get Commands . h" 
I? include "rs_company.h" 



/ / / iff //////////////// /////// //////////////// //////////////////// 

CXC_IMPLEMENT_ FACTORY ( Cxc_ge t Company ) 

bool Cxc_getCompany : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_company rsCompany; 

r s Company . se tAct i veCommand ( "cmd Fetch" ) ; 

CSdoConnection * pconn = m_pcoClient->getConnect ion ( ) ; 

if ((fSuccess = pconn->execute (rsCompany) ) == false) 
m_emLast . setError (pconn->getLas tError ( ) ) ; 

i f ( fSuccess ) 
{ 

m_pdocResul ts = new CXmlDocument ( "<getCompany/>" ) ; 
fSuccess = rsCompany . toXml ( *m_pdocResult s ) ; 

} 

} 

catch (_cora_error & e) 
{ 

m_emLas t . setError {e ) / 
fSuccess = false; 

} 

ca tch (...) 
{ 

m_emLast . setError ( "Unknown exception raised. [Command : getCompany] ") ; 
fSuccess = false; 

} ' 

return fSuccess; 

} 
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liinclude "xc_ge tCommands . h" 
^include "rs_convert_pc.h" 

////////////////////// /////////////////////////////////////////// 

CXC_IMPLEMENT_FACTORY (Cxc_ge tConver t Pc ) 

bool Cxc_getConver t Pc : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_convert__pc rsConvertPc; 

string strEncId; 
string strRecId; 
long lEncId = 0; 

//set the command 

rsConver tPc . se tAct iveCommand ( "cmd Fetch" ) ; 

//get the parameter 

bool fParamExist = get Parm { "enc_id " , strEncId); 
if (fParamExist) lEncId = a tol ( StrEncId . c_str {)) ; 

if {! fParamExist II lEncId = = 0) 
{ 

m__emLa st . setEr ror { " \ "enc_id\ " is a required parameter and should not be 0."); 

return false; 

} 

//set the parameter 

rsConver tPc . set Parameter { "enc_id" , _variant_t ( lEncId) ) ; 

//Do we have the rec_.id ? If yes , then set rec_id parameter. 

if ( get Parm ( "rec_id" , strRecId) == true) 
{ 

long IRecId = atol ( strRecId . c_str ()) ; 

if (IRecId) rsConver tPc . setParameter ( "rec_id" , _variant_t ( IRecId) ) ; 

} 

CSdoConnection * pconn = m_pcoClient->getConnect ion ( ) ; 

if ((fSuccess - pconn->execute ( r sConver t Pc ) ) == false) 
m_emLast . set Err or ( pconn ->ge tLa stEr r or ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXmlDocument ( "<getConvert Pc/>" ) ; 
fSuccess = rsConvertPc . toXml ( *m_pdocResults) ; 

} 

catch (_com_error & e) 

m_emLas t . setEr r or ( e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : getConvertPc] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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It include "xc_get Commands . h" 
# include "r s_conver t_pc . h" 



//////// / / / / / / / / / / / ////////////////'///// ///////////////////////// 

CX C_I M PL EMENT_ FACTORY (Cxc^getCur rConver t Pc ) 

bool Cxc_getCurrConver t Pc : : execCommand ( ) 
{ 

bool f Sue cess = false; 

try 
{ 

Crs_convert_pc rsConvertPc; 
string strEncId; 

rsConvertPc . se tAct iveCommand ( " cmdFetchCurr ent " ) ; 

if ( getParm ( "enc_id" , strEncId) == false) 
{ 

m_emLas t . setError ( " \ "enc_id\" is a required parameter."); 
return false; 

) 

long lEncId = a tol ( StrEncId . c_s tr {)) ; 

rsConvertPc . set Parameter { "enc_id" , __variant__t { lEncId) ) ; 

CSdoConnection * pconn = m_pcoClient->getConnect ion ( ) ; 

if ( {f Success = pconn->execute ( rsConvertPc ) ) ~~ false) 
m_emLast . setError (pconn->getLastError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument { "<ge tCur rConver t Pc/>" ) ; 
fSuccess = rsConvertPc . toXml ( *m_pdocResult s ) ; 

} 

catch (_com_error & e) 

m_emLas t . setError (e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError { "Unknown exception raised. [Command : getCurrConvert Pc] ") ; 
fSuccess = falser- 



return fSuccess; 

} 
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ff i n c 1 u d e " x c_g e tComma nd s . h " 
if include " rs encounter .h" 



///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_ FACTORY ( Cxc_ge tCur r Encounter ) 



////////// ////// //////// ////V//V ////////////////////. •///// //////// 
// Get: the cui r^nl: Encountei from Cpi_id . 

//////////////////////////// /////// //////////////////// /////////// 

bool Cxc_ge tCur r Encounter : : execCommand ( ) 
{ 

bool f Sue cess = false; 

try 
{ 

Crs_encounter rsEncId; 
string strCpild; 

rsEncId . setActi veCommand ( M cmdFe tchCurr en t Encounter" ) ; 

if (getParm("cpi_id M , strCpild) -= false) 
{ 

m_emLas t . setError ( " \ "cpi_id\ ,? is a required parameter. ") ; 

r etui n f a 1 s e ; 

} 

_variant_t vCpilD (atol ( strCpild. c_str ( ) ) ) ; 

r sEncId . set Parameter ( "cpi_id" , _var iant_t { vCpi ID) ) ; 



CSdoConnection *pconn = m_pcoClient->getConnection { ) ; 
if ((fSuccess = pconn->execute (rsEncId) } — false) 
{ 

m_eniLast .setError (pconn->getLast Error ( ) ) ; 

} 

else 
{ 

m_pdocResults = new CXmlDocument ( "<ge tCurr Encounter />'*) ; 
fSuccess = r sEncId . toXml ( *m_pdocResult s ) ; 

} 

} 

catch (_com_error & e) 
{ 

m_emLast . setError (e); 
fSuccess = false; 

} 

c a t c h ( . . . ) 
{ 

m^emLast . setError ( "Unknown exception raised. [ Command : getCurrEncounter J") ; 
fSuccess - false; 

) 

return fSuccess; 
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# include M xc_ge t Comma nds . h" 
^include "rs encounter. h" 



///////////////////////////////////////////////////////////////// 
CXC_IM PL EMENT_ FACTORY ( Cxc_getCurr Encounter Id ) 



////////////////////////////////////////////////////////////////// 
// Get the current Encounter from Cpi__ioi. 

///////VV ///////////////////////////////////////////////// //////// 

bool Cxc_getCurrEncounterId : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_encounter rsEncId; 
string strCpild; 

rsEncId . se t Ac t iveCommand ( "cmdFetchCurrentld" ) ; 

if (getParm ( "cpi_id" , strCpild) == false) 
{ 

m_emLast . setError ( "\ "cpi_id\ " is a required parameter."); 

return false; 

} 

_variant_t vCpiID(atol (strCpild . c_str ( ) ) ) ; 
rsEncId . set Parameter ( "cpi_id" , _variant_t ( vCpilD) ) ; 



CSdoConnect ion + pconn = m_jpcoClient->getConnect ion ( ) ; 
if ((fSuccess = pconn->execute (rsEncId) ) = = false) 
{ 

m_emLast . setError (pconn->ge tLas tEr ror ( ) J ; 

} 

else 
{ 

m_pdocResults = new CXmlDocument { "<getCurrEncounterId/>" ) ; 
fSuccess = rsEncId . toXml ( *m_pdocResult s ) ; 

} 

} 

catch (_com_error & e) 
{ 

m_emLast .setError (e) ; 
fSuccess = false; 

} 

catch ( ... ) 
{ 

m_emLast . setError { "Unknown exception raised."); 
fSuccess = false; 

) 

return fSuccess ; 



} 
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¥. i nclude "xc_ge tCommands . h" 
$ include "rs loa.h" 



/ / / /// / ////// / /.''/////////// / ///////// /////////////////////////// 

CXC__IMPLEMENT_ FACTORY ( Cxc_ge tCur rLoa ) 

bool Cxc_getCurrLoa : : execCommand ( ) 
{ 

bool f Sue cess = false; 

t r y 
{ 

Crs_loa rsLoa; 
string strEncId; 

rsLoa . set Act i veCommand ( " cmdFetchCur rent " ) ; 

if (getParm { "enc_id" , strEncId) false) 
{ 

m_emLast . setError ( "\"enc_id\ " is a required parameter."); 

retu r n false ; 

} 

long lEncId - a t ol ( s t r Enc Id . c_s t r ( ) ) ; 

rsLoa . setParameter ( "enc_id" , __variant_t ( lEncId) ) ; 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

if { (fSuccess = pconn->execute (rsLoa ) ) == false) 
rn_emLas t .setError ( pconn ->getLa st Err or ( ) ) ; 

if (fSuccess) 

/ 
i 

m_pdocResul t s = new CXmlDocument ( "<getCurrLoa/>" ) ; 
fSuccess = rsLoa . toXml ( + m_pdocRe$ul ts ) ; 

} 

} 

catch (_com_error & e) 
{ 

m_emLast . setError (e ) ; 
fSuccess = false; 

• ) 

catch { ... ) 
< 

m_emLast . setError ( "Unknown exception raised. [Command : getCurrLoa ]") ; 
fSuccess = false; 

} 

return fSuccess; 

} 



C:\Documents and Settings\billyhe\My . . . \LCServices\LCBroker\xc getCur r PreAd mi t . cpp 1 

# include "xc_getCommands . h" 
^include "rs_pre_admit.h" 

/////////////////////////////////////.//////////////////////////// 

CXC_IMPLEM EN T_ FACTORY {Cxc_ge tCur r PreAdmit ) 

bool Cxc_getCurr PreAdmit : : execCommand ( ) 
t 

bool fSuccess = false; 

try 
{ 

Crs_pre_admit rsPreAdmit; 
string strEncId; 

r s PreAdmi t . set Active Command { "cmdFet chCurr ent " ) ; 

if ( getParm { "enc_id" , strEncId} == false) 
{ 

m_emLast . setError { " \ "enc_id\ " is a required parameter.") ; 
return false; 

} 

long lEncId = a tol ( strEncId . c_str ()) ; 

rsPreAdmit . set Parameter ( "enc_id" , _variant_t ( lEncId) ) ; 

CSdoConnection * pconn = m_pcoClient->ge tConnect ion ( ) ; 

if {{fSuccess = pconn->execute {rsPreAdmit ) ) == false) 
m_emLast . setError {pconn->get La stErr or () ) ; 

if {fSuccess) 
{ 

m_pdocResult s = new CXmlDocument { "<getCurr PreAdmit />" ) ; 
fSuccess = rsPreAdmit . toXml ( *m_pdocResults ) ; 

} 

catch (_com_error & e) 

m_emLast . setError (e); 
fSuccess = falser- 
catch (...) 

m^emLast . setError ( "Unknown exception raised. [Command : getCur rPreAdtmit J") ; 
fSuccess = false; 



return fSuccess; 

} 
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ftinclude "xc_getCommands . h" 
# include "rs transfer.h" 



//////////////////////////////////////////////■////"/////////////// 

CXC_ I MPLEMENT_ FACTORY ( Cxc_getCurr Trans f er ) 

bool Cxc_getCurrTransf er : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_transfer rsTransfer; 
string strEncId; 

rsTransfer. se tAct ive Command ( "cmdFetchCurrent " ) ; 

if (getParm ( "enc_id" , strEncId) == false) 
{ 

m_emLast . setError ( "\"enc_id\" is a required parameter."); 

r e t u r n false; 

} 

long lEncId - a tol ( strEncId . c_str {)) ; 

rsTransfer. set Parameter ( "enc_id" , _variant_t ( lEncId) ) ; 

CSdoConnection * pconn = m_pcoCl ien t ~>ge tConnection { ) ; 

if ((fSuccess = pconn->execute (rsTransfer ) ) false) 
m_emLast . setError ( pconn->getLas tError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( 11 <getCurrTransf er />" ) ; 
fSuccess = rsTransfer . toXml ( *m_pdocResults ) ; 

} 

} 

catch (_com_err or & e) 
{ 

m^emLast . setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLas t . setError ( "Unknown exception raised. [Command : getCurrTransf er ]") ; 
fSuccess = false; 

1 

return fSuccess; 

} 
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#include "xc_ge tCommands . h " 
^include "rs__diagnosis . h" 

///////////////////////////// ///// ///////////// ////////////////// 

CXC_IMPLEMENT_FACTORY (Cxc_get Diagnosis ) 

bool Cxc_get Diagnosis : : execCommand ( } 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_diagnosis rsDiagnosis; 

string strEncId; 
string strRecId; 

rsDiagnosis. set Act i veCommand { "cmd Fetch" ) ; 

if (getParm ( "enc_id" , strEncId) == false) 
{ 

m_emLast . setError ( " \ "enc_id\ " is a required parameter."); 
return false; 

} 

long lEncId = atol ( strEncId . c_str ()) ; 

rsDiagnosis. set Pa raraeter ( "enc_id" , _variant_t ( lEncId) ) ; 

if (getParm ( "rec_id" , strRecId) ~~ true) 
{ 

long IRecId = a tol ( strRecId . c_str ()) ; 

rsDiagnosis . set Parameter ( "r ec_id" , _variant_t (IRecId) ) ; 

} 

CSdoConnection * pconn = m_pcoClien t->ge tConnec t ion { ) ; 

if {(fSuccess = pconn->execute (rsDiagnosis ) ) == false) 
m_emLast .setError { pconn ->get Last Err or ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXml Document ( "<getDiagnos is />") ; 
fSuccess = rsDiagnosis . toXml ( *m__pdocResults) ; 

} 

catch (_com_err or & e) 

m_emLast . setError (e); 
fSuccess = false; 

catch (...) 

m^emLast . setError ( "Unknown exception raised. [Command : getDiagnosis ]") ; 
fSuccess - false; 



return fSuccess; 

} 
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# include " xc_ge tCommands . h" 
^include "rs_disabili ty . h" 

////////////// ///'/// //// ///////// //////////////////////////////// 
CXC_IMPLEMENT_ FACTORY { Cxc_ge tDi sabil it y ) 

bool Cxc_getDisability : : execCommand ( ) 
{ 

bool fSuccess - faise; 

try 
{ 

Crs_disabili ty r sDi sabili ty ; 
string strCpilD; 

rs Disability. set Act iveCommand ( "cmd Fetch" ) ; 

if (getParm ( M cpi_id", strCpilD) == false) 
{ 

m_eml»as t . setError ( "\ "cpi_id\ " is a required parameter."); 
return false; 

} 

_var iant_t vCpilD ( a tol. ( s trCpi ID . c_str ( j ) ) ; 
rs Disability . set Parameter { "cpi_id" , vCpilD) ; 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

if ({fSuccess = pconn->execute { rsDi sabil ity ) ) == false) 
m_emLas t .setError ( pconn- >getLastErr or ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXmlDocument ( "<getDisability/> " ) ; 
fSuccess = r sDisability . toXml ( *m_pdocResul ts) ; 

} 

} 

catch (_com_error & e) 
{ 

m_emLast .setError (e ) ; 
fSuccess ~ false; 

} 

catch ( ... ) 
{ 

m_emLast . se tEr ror ( "Unkown exception raised. [ Command : get Disability ]") ; 
fSuccess = false; 

} 

return fSuccess ; 

} 



V 
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It include "xc_get Commands . h" 
#include "rs_discharge . h " 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT__ FACTORY (Cxc_getDi schar ge ) 

bool Cxc_getDischarge : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_discharge rsDischarge; 
string strEncId; 

rsDischarge, setAct iveCommand ( "cmd Fetch" ) ; 

if (getParm("enc_id", strEncId) =- false) 
{ 

m_emLast . setError { "\ "enc_id\ " is a required parameter."); 
return false; 

} 

long lEncId = a tol ( strEncId . c_str {)) ; 

rsDischarge. set Parameter ( "enc_id" , _variant_t ( lEncId) ) ; 

CSdoConnection * pconn = m_pcoCl ient->getConnection ( ) ; 

if ((fSuccess = pconn->execute (rsDischarge ) ) == false) 
m_emLast . setError (pc on n->getLas tErr or () ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXmlDocument ( "<getDischarge/>" ) ; 
fSuccess = rsDischarge . toXml ( *m_pdocResul ts ) ; 

} 

catch (_com_error & e) 

m_emLast .setError (e) ; 
fSuccess = falser- 
catch (...) 

m_emLast . setError ( "Unknown exception raised. (Command : get Di scharge ]") ; 
fSuccess = falser- 



return fSuccess ; 

} 
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tf include "xc_get Commands . h" 
#include "r s_discharge . h" 

////////////////////////////////////////////////////////// /////// 
CXC_IMPLEMENT_FACTORY (Cxc_getDischargeHi story) 

bocl Cxc_getDischargeHis tory : : execCommand ( ) 
< 

bool f Success = false ; 

try 
{ 

Crs__discharge rsDischarge; 
string strCpilD; 

rsDischarge. set Act iveCommand ( " cmdFetchAl 1 " ) ; 

if {getParm { "cpi_id" , strCpilD) == false) 
{ 

m__emLast . setError ( "V'cpi_id\" is a required parameter. ") ; 
return false; 

} 

_variant_t vCpilD (atol (strCpilD. c_str ( ) ) ) ; 
rsDischarge. set Parameter ( "cpi_id" , vCpilD) ; 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

if ( (fSuccess = pconn->execute ( rsDischarge ) ) == false) 
m_emLast .setError <pconn->getLastError () ) ; 

if (fSuccess) 
{ 

m_pdocResul t s = new CXml Document ( "<getDi schargeHistor y />") ; 
fSuccess = rsDischarge . toXml ( *m_pdocResul t s ) ; 

} 

catch {_com_error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [ Command : getDi s chargeHi s tor y] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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^include "xc_getCommands . h" 
#include " r s_employer s . h n 

/////////////////////////:\ / /// //////////////////// /////////////// 

C XC_I M PL EM EN T_ FACTORY (Cxc_ge t Employment Inf o ) 

tool Cxc_getEmploymentInf o : : execCommand ( ) 
{ 

boo! f Success = false; 

try 
{ 

Cr s_employers rsEmployer; 
string strCpilD; 
string strActiveSw; 

r s Employer . se tActi ve Command ( " cmd Fetch " ) ; 

if { getParm ( "cpi__id" , strCpilD) == false) 
{ 

m_emLas t . setError { " \ "cpi_id\ " is a required parameter."); 

return f a .1 s e ; 

) 

if { strCpilD. empty ( ) ) 
{ 

m_emLast . setError ( "\"cpi_id\" is NULL."); 

return false; 

} 



_variant_t vCpilD (atol ( strCpilD . c_str ( ) ) ) ; 
rsEmployer . setParameter ( "opioid" , vCpilD) ; 

if (getParm ( "active_sw" , strActiveSw) == true) 
{ 

_variant_t vActiveSw(atol (strActiveSw. c_str ( ) ) ) ; 
rsEmployer . setParameter ( "act ive_sw" , vActiveSw) ; 

} 

CSdoConnec t ion * pconn = m_pcoClient->getConnection ( ) ; 

if ( (fSuccess = pconn->execute (rsEmployer ) ) == false) 
m_emLast . setError (pconn->getLastEr ror ( ) ) ; 

if (fSuccess) 
{ 

m_pdocRe suits = new CXml Document ( " <get Employment Inf o/>" ) ; 
fSuccess = r sEmplover . toXml ( ^m_pdocResul ts ) ; 

} 

ca tch (_com_er ror & e) 

m_emLast . setError (e); 
fSuccess =■ false; 

catch ( ... ) 

m__emLast . setEr ror ( "Unkown exception raised. [ Command : getEmployment Inf o] ") ; 
fSuccess = faJ.se; 



return fSuccess; 
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£ include "xc_getCommands . h" 
# include "r s_encounter_tree . h" 

/ S- f -V * <- * •>• » -i- * -> -* -y -V +■ it + - -v- * -i- * * •*■ r <*• * * + y -<r Jr * * ♦> «■ + * * * * * r * » * * :<■■ * V * 

Function : Returns all encounters by the Cpild, 

T- ir ■>: * * * ■*■ - ; - jr ->• •*• -- * *• ■* *• * i; * »■ + * * + ■*- - l r * •» •*■ i- •*• -V *■ i- 4 .> ■■«• *. y 4. 4- * -jr + *■ + 4; * r -i- i; ••• * ■!- -» •'• -J- V - / 

CXC_IMPLEMENT_FACTORY ( Cxc_ge t Encoun t er Tr ee ) 

bool Cxc_getEncounterTree : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_en count er_tree rsEncounterTree; 
string strCpild; 
string strEncId; 
long lCpild = 0; 

rsEncounterTree . set Act iveCommand ( "cmdFetch" ) ; 

//get the parameter 

bool fParamExist = get Parm ( "cpi_id M , strCpild); 
if (fParamExist) lCpild - atol { s trCpi Id . c_s tr ( ) ) ; 

if (! fParamExist M lCpild — 0) 
{ 

m_emLas t . setError ( "\"cpi__id\" is a required parameter and should not be 0."); 
return false; 

} 

/ /set the paramter . 

r sEncounterTr ee . setPar ameter ("cpi_id", _variant_t (lCpild) ) ; 

// Currently the Stored Procedure doesn't do anything with the enc _id 

//'Do we have the enc_id ? If yes, then set enc_.id par.aiaet.er . 

if (getParm ( "enc_id" , strEncId) == true) 
{ 

long lEncId = a tol ( strEncId . c_str ()) ; 

if (lEncId) rsEncounterTree . set Parameter ( "enc_id" , _variant_t ( lEncId ) ) ; 

} 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

if ((fSuccess - pconn->execute ( rsEncounterTree ) ) == false) 
m_emLast . setError (pconn->getLas tError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( " <ge tEncounter Tree /> " ) ; 
fSuccess = rsEncounterTree . toXml ( *m_pdocResul t s ) ; 

} 

} 

catch (_com_error & e) 
I 

m_emLast .setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unknown exception raised. [Command : getEncount erTree ]") ; 
fSuccess ~ false; 

} 
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return fSuccess; 

} 
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^include " xc__ge tCommands . h" 
#include "r s_id_map . h" 

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 

CXC_ I M PL EMENT_ FACTORY ( Cxc_get Externa II Ds ) 

bool Cxc_getExternalIDs : : execCommand { ) 
{ 

bool f Success = false; 

tr y 
{ 

Crs_id__map rsExternallDs; 
string strParm; 

rsExternallDs. se tAct iveCommand ( "cmdFetch" ) ; 

if {get Parm ( "cpi__id M , strParm) == false) 
{ 

m_emLast . setError ( " \"cpi_id\ " is a required parameter."); 
return false; 

} 

_variant_t vCpilD (atol {strParm. c_str { ) ) ) ; 

rsExternallDs . set Parameter ( M cpi_id" , vCpilD) ; 

CSdoConnection * pconn = m_pcoClient->getConnection { ) ; 

if ({fSuccess = pconn->execute { rsExternallDs ) ) == false) 
m_emLast . setError (pconn->getLas tEr ror ( ) ) ; 

if (fSuccess) 
{ 

rn_pdocResul t s = new CXmlDocument { "<getExternalIDs/>" ) ; 
fSuccess = rsExternallDs . toXml ( *m_pdocResults ) ; 

} 

ca tch (_com_er r or & e) 

m_emLa s t .setError (e) ; 
fSuccess = false; 

ca tch ( . . . ) 

m^emLast . setError ( "Unkown exception raised. [Command : ge t Externa 1 I Ds ] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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# include "xc_ge tCommands . h" 

# include "r s_sys_or g_f acili ty . h" 

//////////////////////// ///////////////////////////////////////// 

CXC_IM PLEM EN T_ FACTORY (Cxc_get Facilities ) 

bocl Cxc_getFacili ties : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_facility rs_facility; 

rs_f acili ty . se tActiveCommand ( " crndFet chAll " ) ; 

CSdoConnect ion * pconn = m_pcoCl ien t ~>getConnect ion ( ) ; 

if ((fSuccess - pconn->execute (r s_f acility ) ) == false) 
m_emLast . setError (pconn->getLa s tErr or ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXml Document ( "<get Facilities />") ; 
fSuccess = rs_f acility . toXml ( *m_pdocResults) ; 

} 

catch (_com_error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch ( . . . ) 

m_emLast . setError ( "Unknown exception raised. [ Command : get Facili ties ]") ; 
fSuccess = false- 



return fSuccess; 

} 
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include "xc_Get Commands . h" 
# in elude "r s_f amily_hi story . h" 

///////////////////////////////////////////////////////////////// 
CXC_I M PL EMENT_ FACTORY ( Cxc_ge t Fami lyHi s t or y ) 

bc-ol Cxc_get FamilyHis tory : : execCommand ( ) 
{ 

boo I f Success = true; 

try 
{ 

Cr s_f amily_hi story r s_f ami ly_hi story ; 
string strCpild; 

CSdoConnect ion * pconn = m_pcoClient->getConnection ( ) ; 

//get cpi_ia 

if ( get Parm ( "cpi_id" , strCpild) ~ false) 
{ 

m_emLast . setError ( "\"cpi_id\" is a required parameter."); 
throw f Success = false; 

} 

//check if opioid is null. 

if ( strCpild . empty () ) 

{ 

m_emLast . setError ( "\"cpi_id\" is NULL."); 

t h row f S u c c e s s = fa 1 s e ; 

} 

long lCpild - a tol ( s trCpi Id . c_s tr ( ) ) ; 



rs_f ami ly_hi story . clear Par ms ( ) ; 

rs_f ami ly_hi story . se t Records etToNu 11 ( ) ; 

r s_f ami ly_hi story . se tAct iveCommand ( "cmd Fetch" ) ; 

rs_f amily__history . setParm { "cpi_id" , _variant_t (lCpild)); 

if { pconn->execu te { r s_f amily_history ) == false) 

{ 

m_emLast .setError (pconn->getLastError () ) ; 
threw f S u c c e s s = false ; 

} 

e 1 s e 
{ 

m_pdocResults = new CXmlDocument ( M <getFamilyHistory />" ) ; 
fSuccess = r s_f ami ly_history . toXml ( *m_pdocResul ts ) ; 

} 



catch (bool f Err or) 

f Err or ; 

catch (_com_error & e) 

m_emLast .setError (e); 
fSuccess = false; 

ca tch ( . . . ) 

m_emLast . setError ( "Unkown exception raised. [Command : get FamilyHis tory ] ") ; 
fSuccess = false; 
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return fSuccess; 

} 
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^include "xc_getCommands . h " 
#include "rs__f amily_tree . h" 
tfinclude "do__f amily_t ree . h M 

//////////////V// /////////////////////////////////'//////// /////// 

CXC__IMPLEMENT_ FACTORY (Cxc_get FamilyTree ) 

bocl Cxc__getFamilyTree : : execCommand ( ) 
{ 

bool f Success = false; 

try 
{ 

CDoFamilyTree doFamilyTree; 
string strCpilD; 

getParm ( " cpi_id" , do FamilyTree . m_strCpi I D) ; 

if (fSuccess = doFamilyTree . f romConnect ion (m__pcoClient->getConnection { ) ) ) 
{ 

m_pdocResul ts = new CXmlDocument ( "<getFamilyTree/>" ) ; 
fSuccess = doFamilyTree . toXml ( *m_pdocResults) ; 

} 

else 

m_emLast . setErr or (doFamilyTree . getLastErr or ()) ; 

catch (_com_error & e) 

m_emLast . setErr or (e) ; 
fSuccess = false; 

catch (...) 

m_eraLas t . setErr or ( "Unkown exception raised. (Command : get FamilyTree 3 " ) ; 
fSuccess = false; 



return fSuccess; 

} 
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^include "xc_ge tCommands . h" 
if include " r s_guarantor . h" 

///////////////////////////////////////////////////////////////// 
CXC_IM PL EMENT_ FACTORY (Cxc_ge tGuarantor Inf o ) 

bocl Cxc_getGuarantor Inf o : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_guarantor rsGuarantor; 
string strCpilD; 

rsGuarantor . setActiveCommand ( M cmd Fetch" ) ; 

if {get Parm ( "cpi_id" , strCpilD) == false) 
{ 

m_emLast . setEr ror ( " \"cpi_id\" is a required parameter."); 
return false; 

} 

_variant_t vCpilD (atol ( strCpilD . c_s tr ( ) ) } ; 
rsGuarantor. set Parameter ( "opioid" , vCpilD) ; 

CSdoConnection * pconn - m_pcoClient->ge tConnect ion { ) ; 

if ({fSuccess ~ pconn->execute (rsGuarantor ) ) -~ false) 
m_emLast . setError (pconn->ge tLa stErr or ( ) ) ; 

if {fSuccess) 
{ 

m_pdocResul ts = new CXmlDocument ( "<getGuarantor Inf o/>" ) ; 
fSuccess = rsGuarantor . toXml ( *m_pdocResul t s ) ; 

} 

catch (_com_erior & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch (...) 

m^emLast . setError ( "Unkown exception raised. [Command : getGuarantor In f o] "J ; 
fSuccess ~ false; 



return fSuccess; 

} 
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# include "xc_Get Commands . h" 

# include "rs_health_condit ion . h" 

/////////7//////////////////////////////////V///////////////////7 
CXC_IMPLEMENT_FACTORY(Cxc_getHealthConditions) 

bool Cxc_getHealthConditions : : execCommand { ) 

{ 

bool f Success - true; 

try 
{ 

Crs_health_condition rs_hc; 
string strCpild; 

CSdoConnection * pconn = m_pcoClient- >getConnection ( ) ; 

//get cpi_id 

if (getParm{ "cpi_id" , strCpild) == false) 

{ 

m_emLast . setError ( "\ "cpi_id\ " is a required parameter."); 
throw f Success = false; 

} 

//check if cpi_id is null. 

if (strCpild . empty 0 ) 

{ 

m_emLas t. setError ( " \ "cpi_id\ " is NULL."); 
throw f Success = false; 

} 

long lCpild = atol ( strCpild . c_str ()) ; 

//fetch all bp records. 

rs_hc . clearParms ( ) ; 

rs_hc . setRecordSetToNull ( ) ; 

rs_hc . setAct iveCommand ( " cmdFetch" ) ; 

rs_hc . setParm ( "cpi_id" , _variant_t (lCpild)); 

if (pconn- >execute (rs_hc) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw f Success = false; 

} 

else 

{ 

m_pdocRe suits = new CXmlDocument ( " <getHealthConditions/ > " ) ; 
fSuccess = rs_hc . toXml ( *m_pdocResults) ; 

} 



catch (bool f Error) 

f Error ; 

catch (_com_error & e) 

m_emLast . setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : getHealthConditions] ") ; 
fSuccess = false; 
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return fSuccess; 
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if include "xc_Ge tCommands . h " 
#include "r s_code_cache . h" 

////////////////////////////// ////////////// /////////////////// 
CXC_IMPLEMENT_FACTORY ( Cxc_get IdealBPRanges ) 

bocl Cxc_get IdealBPRanges : : execCommand ( } 
{ 

bool f Success = true; 

try 
{ 

Cr s_code_inter n rsCode; 
string strCatName; 

CSdoConnec tion * pconn - m_pcoClient->getConnection { ) ; 

//Fixed category name 

strCatName = "Blood Pressure Range"; 

rsCode . setActiveCommand { "getSor tedCodeSetByCa tName " ) ; 
rsCode . setParm ( "cat_name" , _variant_t ( strCatName . c_str {})) ; 

if (pconn->execute (rsCode ) -= false) 
{ 

m_emLast . setError (pconn->ge tLa s t Er ror ( ) ) ; 
throw f Success = false; 

} 

//checi: if values present 
if ( rsCode . isEmpty () ) 
{ 

m_emLast << "Ideal Blood Pressure values not present"; 
throw f Sue cess = false; 



//extract 



string strCode, strValue; 

string strSysLow, strSysHigh, strDiasLow, strDiasHigh; 

while (! rsCode . isEOF () ) 
{ 

rsCode . get Field ( "code" , strCode ) ; 
rsCode . getField ( "code_name" , strValue) ; 



if 


(strCode = = 


"SYS_LOW") 




strSysLow = 


strValue ; 


if 


(strCode == 


"SYS_HIGH" ) 




strSysHigh 


= strValue; 


i f 


(strCode -= 


"DIAS_LOW") 




strDiasLow 


= strValue; 


i f 


(strCode == 


"DIAS_HIGH" ) 




strDiasHigh 


= strValue; 



rsCode . get ADO ( ) ->MoveNext ( ) ; 

} 

//construct the result document . 

m_pdocResul ts = new CXmlDocument ( "<get IdealBPRanges /> " ) 

openXmlTag ("row", XML_TYPE_ROW ) ; 

addXmlChild ("lowsystolic", s trSysLow . c_str { ) ) ; 
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addXmlChild ("high systolic", strSysHigh. c_str ( ) } ; 
addXmlChild ( "lowdias tolic" , strDiasLow . c_str ( ) ) ; 
addXmlChild ("highdiastolic", stz DiasHigh . c_s tr () ) ; 

closeXmlTag { ) ; 

catch (bool f Err or) 

f Error ; 

ca t ch (_com_error & e) 

m_emLast . set Err or (e ) ; 
f Success = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : getldealBPInf o] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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Ifinclude "xc_GetComntands.h" 
# include "rs_imaging . h" 

/////////////////////////////////// /7///////////// ////// ///////// 
CXC_IMPLEMENT_ FACTORY ( Cxc_ge t Imaginglnf o ) 

bool Cxc_getlmaginglnf o : : execCommand { ) 
{ 

bool fSuccess = true; 

try 
{ 

Crs_imaging rs_imaging; 
string strCpild; 

CSdoConnection * pconn - mjpcoClient->getConnect ion { ) ; 

//get opi_.id 

if (getParm ( "cpi_id", strCpild) == false) 
{ 

m_emLast . setError ( "\"cpi_id\ " is a required parameter."); 
throw fSuccess = false; 

) 

//check if cpi__id is null. 

if { strCpild . empty {) ) 

{ 

m_emLast . setError ( "\ M cpi_id\ M is NULL."); 
throw fSuccess ~ false; 

} 

long lCpild = atol { strCpild . c_str ()) ; 

//fetch all bp records. 

rs_imaging .clearParms ( ) ; 

rs_imaging . se tRecordSetToNull ( ) ; 

rs_imaging . setActiveCommand ( "cmdFetch" ) ; 

rs_imaging . set Parm ( "cpi_id" , _variant_t (lCpild)); 

if (pconn->execute ( r s_imaging ) false) 

{ 

m_emLast . setError {pconn~>get La stError () ) ; 
throw fSuccess = false; 

} 

else 
{ 

m_pdocResults = new CXmlDocument { "<getlmaginglnf o/>" ) ; 
fSuccess ~ r s_imaging . toXml ( *m_pdocResul t s ) ; 

) 



catch {bool f Err or) 

f Error ; 

catch (_com_error & e) 

m_emLas t . setError { e ) ; 
fSuccess - false; 

ca tch ( . . . ) 

m_emLast . setError { "Unkown exception raised. [Command : getlmaginglnf o] ") ; 
fSuccess = false; 
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return fSuccess; 

} 
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H include "xc_Ge tCommands . h" 
# include " r s_immuni za t i on .h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_ FACTORY ( Cxc_get Immunizations ) 

bool Cxc_getImmunizations : : execCommand { ) 
{ 

bool fSuccess = true; 

t r y 
< 

Crs_immunization r s_immuni zat ion ; 
string strCpild; 

CSdoConnection * pconn ~ m_pcoClient->getConnection { ) ; 

/ /get cpi_i d 

if (getParm ( "cpi_id" , strCpild) = 
{ 

m_emLast . set Err or ( " \ "cpi_id\ " 
throw fSuccess = false; 

} 

//check if opioid is null, 
if (strCpild . empty ( ) ) 
{ 

m_emLast . setError { "\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

long lCpild = a tol ( strCpild . c_str {)) ; 

//fetch all bp record.?. 

r s_immuni zat ion . clear Pa rms ( ) ; 

rs_ immunization . se t Record SetToNul 1 ( ) ; 

r s_immuni zat ion . se t Act iveCommand ( "cmd Fetch" ) ; 

rs_immunization . setParm ( "opioid" , _variant__t (lCpild)); 

if {pconn->execute ( r s_immuniza tion ) false) 

m_emLast .setError ( pconn ->get Las t Err or { ) ) ; 
throw fSuccess = false; 

else 

m_pdocResul ts = new CXmlDocument ( "<getImmunizations/>" ) ; 
fSuccess = r s_immuni zation . toXml { *m_pdocResul t s ) ; 



catch (bool fError) 

fError; 

catch (_com_error & e) 

m_emLas t .setError (e) ; 
fSuccess ~ false; 

catch (...) 

m__emLast . setError { "Unkown exception raised. [Command : getlmmunizations ]") ; 
fSuccess = false; 



= false) 
is a required parameter."); 
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return fSuccess; 

} 
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it include "xc_getCommands . h" 
# include "r s_pa tient . h M 

///////////////////////////////////////////////////////////////// 

CXC_IMPLEMENT_ FACTORY {Cxc_ge tin Patients ) 

bocl Cxc_getInPatients : : execCommand ( ) 
{ 

boo I f Sue cess = false; 

try 
i 

Crs_patient rs_patient; 

rs_pa tient . se tActiveCommand { " cmdFe tchAll " ) ; 

CSdoConnection * pconn = m_pcoClient->getConnection { } ; 

if {(fSuccess = pconn->execute { rs_pa tient ) ) =- false) 
m__emLast . setError (pconn->getLastError ( ) ) ; 

if (fSuccess) 
I 

m_pdocResults = new CXmlDocument ( " <get!nPatient s />" ) ; 
fSuccess = rs_patient . toXml ( *m_pdocResul ts ) ; 

} 

ca t ch (_com_error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch (...) 

m__emLast . setError ( "Unknown exception raised. [Command : getlnPatients ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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Itinclucie M xc_getCommands . h" 
^include "rs_insurance.h" 

///////////////////////////////////////////////////////////////// 

CXC_IMPLEMENT_FACTORY { Cxc_ge t I ns Plans ) 

bool Cxc_getInsPlans : : execCommand { ) 
{ 

bool fSuccess ~ falser- 
try 
{ 

Crs_insurance_plan rs_insurance_plan; 

rs_insurance_plan . setActiveCommand ( M cmdFe tchAll " ) ; 

CSdoConnection * pconn - m_pcoClient->getConnection ( ) ; 

if {{fSuccess = pconn->execute (rs_insurance_plan) ) == false) 
m_emLast . setError (pconn->getLas tEr ror { ) ) ; 

if {fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( "<get InsPlans />" ) ; 
fSuccess = rs_insurance_plan . toXml ( *m_pdocResult s ) ; 

} 

catch {_com_error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch { . . . ) 

m_eraLast . setError ( "Unknown exception raised. [Command : getlnsPlans] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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#include "xc_getCommands . h" 
#include "rs_insurance.h" 

///////////////////////////////////////////////////////////////// 

CXC_IMPLEMENT_FACTORY ( Cxc_ge t Ins PlansByCompany ) 

bool Cxc_getInsPlansByCompany : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_insurance_plan rs_insur ance_plan ; 
string strCompId; 

rs_insurance_plan . se tActiveCommand ( " cmd Fetch By Company " ) ; 

if ( getParm ( "ins_company_id M , strCompId) == false ) 
{ 

m_emLast . setError ( "\ "ins_company id\" is a required parameter."); 

return false; 

} 

__variant_t vCompID (atol (strCompId . c_str ( ) ) ) ; 

rs_insurance_plan . set Parameter ( " ins_company_id" , _var iant_t (vCompID) ) ; 

CSdoConnection * pconn = m_pcoClient->ge tConnection ( ) ; 

if ((fSuccess = pconn->execute ( rs_insurance_plan) ) == false) 
m_emLast .set Error (pconn->getLastError () ) ; 

if (fSuccess) 
i 

m_pdocResul ts = new CXml Document ( "<getlns PlansByCompany />") ; 
fSuccess = r s_insurance_plan . toXml ( *m_pdocResul ts ) ; 

} 

catch (_corn_error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : get InsPlansByCompany] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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#inclucse "xc__ge tCommands . h" 
#include "rs_insurance.h" 

///////////////////////////////////////////////////////////////// 

CXC_IMPLEMENT_ FACTORY (Cxc_ge tlnsuranceCoverage ) 

bocl Cxc_getInsuranceCoverage : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_insurance rslns; 
string strCpilD; 
string strEncID; 
string strActiveSw; 

rslns . setActiveCommand ( "cmdFe tchlnsuranceCoverage" ) ; 

if (getParm { "cpi_id" , strCpilD) -= false) 
{ 

m_emLast . setError { "\ "cpi_id\ " is a required parameter. ") ; 
return false; 

) 

_variant_t vCpiID(atol ( s t rCpi ID . c_s tr () ) ) ; 
rslns . set Parameter { "cpi_id" , vCpilD) ; 

if (getParm ( "enc_id" , strEncID) ~~ false) 
{ 

m_emLast . setError ( "\ "enc_id\ " is a required parameter."); 
return false ; 

} 

_variant_t vEncID {atol ( strEncID . c_s tr ( ) ) ) ; 
rslns . setParameter ( "enc_id" , vEncID) ; 

if (getParm { "active_sw" , strActiveSw) true) 
{ 

_variant_t vActiveSw {atol ( strActiveSw . c_str ( ) ) ) ; 
rslns . setParameter ( 11 act i ve_sw" , vActiveSw) ; 

} 

CSdoConnect ion + pconn - rn_pcoClient->getConnection ( ) ; 

if ((fSuccess - pconn->execute (rslns) ) — false) 
m_emLast .setError ( pconn- >get Last Err or ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( "<getInsuranceCoverage/>" ) ; 
fSuccess = rslns . toXml ( + m_pdocResults ) ; 

} 

} 

catch (_com_error & e) 
{ 

m_emLast . setError (e) ; 
fSuccess = false; 

} 

catch ( ... ) 
{ 

m_emLast . setError ( "Unkown exception raised. [Command : getlnsuranceCoverage ]") ; 
fSuccess = false; 

} 



return fSuccess ; 

} 
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#include "xc_ge tCommands . h" 
^include "rs_insurance.h" 

/////////// /////////V/V///// //////////////////////////// / / /////// 

CXC_ I M PL EMENT_ FACTORY (Cxc_ge tlnsurancelnf o) 

bool Cxc_getlnsurancelnf o : : execCommand { ) 
{ 

bool fSuccess - false; 

try 
{ 

Cr s_insur ance rslnsurance; 
string strCpilD; 
string strActiveSw; 

rslnsurance. se t Act ive Command ( "cmd Fetch" ) ; 

if (getParm { "cpi_id", strCpilD) false) 
{ 

m_emLast . setError { " \ M cpi_id\ " is a required parameter."); 

return false; 

) 

_variant_t vCpilD (atol ( strCpilD . c_str ( ) ) ) ; 
rslnsurance. set Parameter ( "cpi_id" , vCpilD) ; 

if (getParm("active_sw", strActiveSw) == true) 
{ 

_var iant_t vActiveSw (atol ( strActiveSw . c_str ( ) ) ) ; 
rslnsurance. set Parameter ( " act ive_s w" , vActiveSw) ; 

) 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

if ((fSuccess = pconn->execute ( rs Insurance ) ) == false) 
m_emLast . setError (pconn->getLas tEr ror ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXml Document ( "<get Insurancelnf o/> ") ; 
fSuccess = rslnsurance . toXml (*m_pdocResults) ; 

} 

catch (_com_er ror & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : getlnsurancelnf o] " ) ; 
fSuccess = false; 



return fSuccess ; 

} 
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^include n xc_getCommands . h" 
^include "rs_stats.h" 

//////;/;/; /;///////// 

CXC_IM PL EMENT_ FACTORY (Cxc_getLif eclinicStats) 

bool Cxc_getLif eclinicStats : : execCommand ( ) 
{ 

bool f Success = true; 

try 
{ 

Crs_stats rs_stats; 

CSdoConnection * pconn - m_pcoClient->ge tConnect ion { ) ; 

r s_stats . se tActiveCommand ( "cmdFetchS tat s " ) ; 

if ((fSuccess - pc on n->execute(rs_ stats)) — false) 

{ 

m_emLas t . setError (pconn- >ge tLa s t Err or ( ) ) ; 
throw fSuccess = false; 

) 

//return XML results. 

m_pdocResults = new CXmlDocument { "<getLi feci inicS tat s />") ; 
fSuccess - r s_stats . toXml { *m_pdocResults ) ; 



catch (bool fError) 

f Error ; 

catch (__com__error & e) 

m_emLas t .setError (e) ; 
fSuccess - false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : getLif eclinicStats ]") ; 
fSuccess = false; 



return fSuccess; 

) 
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If include "xc_getCommands . h " 
^include "rs_loa.h" 

/////////////////////////•/////////////////////////////////////// 

CXC_IMPLEMENT_ FACTORY (Cxc_getLoa) 

bool Cxc_getLoa: : execCommand ( ) 
{ 

bool f Success - false; 

try 
i 

Crs_loa rsLoa; 
string strEncId; 
string strRecId; 
long lEncId = 0; 

//set -the command 

rsLoa . setAc tiveCommand ( "cmd Fetch" ) ; 

//get the parameter - 
bool fParamExist = get Parm ( "enc_id " , strEncId) ; 
if (fParamExist) lEncId = atol (strEncId . c_str ()) ; 

if ( I fParamExist II lEncId == 0) 
{ 

m_emLast . setError ( "\"enc_id\" is a required parameter and should not be 0 . " ) ; 
r return raise- 



rs Loa . set Parameter ( "enc_id" , _var iant_t ( lEncId) ) ; 

//Do v;e have the rec id ? If yes, then set rec_id parameter. 

if (getParm ( "rec_id" , strRecId) -= true) 
i 

long IRecId = a tol ( strRecId . c_str ()) ; 

if (IRecId) r sLoa . setParameter ( 11 rec_id" ( __va r iant_t ( IRecId ) ) ; 

) 

CSdoConnect ion * pconn = m_pcoClient->getConnect ion ( ) ; 

if ((fSuccess = pconn->execute {rsLoa) ) == false) 
m_emLast . setError (pconn~>get Las tEr r or ( ) ) ; 

if (fSuccess) 
{ 

rn_pdocResults = new CXmlDocument ( "<getLoa />" ) ; 
fSuccess = r sLoa . toXml ( + m_pdocResul ts ) ; 

} 

catch (_cora_error £ e) 

m_emLa st . setError (e) ; 
fSuccess = false; 

catch (...) 

m^emLast . setError ( "Unknown exception raised. [Command : getLoa ]"} ; 
fSuccess ~ false; 



return fSuccess; 

} 
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♦ft include "xc__getCommands . h" 
# include "rs_loa .h" 

///////////////////////////////////////////////////////////////// 
CXC_ I MPLEMENT__ FACTORY (Cxc_getLoaHi story) 

bool Cxc_getLoaHis tory : : execCommand ( ) 
{ 

bool f Success = false; 

try 
{ 

Crs_loa rsLoa; 
string strCpilD; ' 

rsLoa . setAct iveCommand ( "cmdFetchAll" ) ; 

if { get Parm ( " cpi_id" , strCpilD) == false) 
{ 

m_emLast . setError { "\"cpi_id\" is a required parameter."); 
return false; 

} 

_variant_t vCpilD (atol ( strCpilD . c__st r ( ) ) ) ; 
rsLoa. set Parameter ( "cpi_id" , vCpilD) ; 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

if ((fSuccess = pconn->execute (r sLoa ) ) == false) 
m_emLast . setError (pconn->ge tLas tError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( "<getLoaHistory /> " ) ; 
fSuccess = r sLoa . toXml ( *m__pdocResul t s ) ; 

} 

} 

catch {_com_err or & e) 
{ 

m_emLast . setError (e) ; 
fSuccess = false; 

} 

catch (...) 
i 

m_emLast . setError ( "Unkown exception raised. [Command : getLoaHi story ] " ) ; 
fSuccess = false; 

} 

return fSuccess; 

} 
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# include "xc_get Commands . h M 
^include " r s_ma ss_mailing . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_ FACTORY (Cxc_getMassMailing) 

bool Cxc_getMassMailing : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_mass_mailing r sMassMailing ; 

string strCpild; 
string strRecId; 

get Parrn ( "cpi_id" , strCpild); 
getParm ( "rec_id" , strRecId); 

CSdoConnection * pconn = m_pcoCl ient->getConnection { ) ; 

if (strRecId.size()) 
{ 

r sMassMailing . setActiveCommand { "cmdGetByRecId" ) ; 

r sMassMailing . set Parameter { "rec_id" , _variant_t (atol(strRedd.c_str{) ) ) ) ; 

} 

else it (strCpild. size {) ) 
{ 

r sMassMailing . setActiveCommand ( "crndGetByCpild" ) ; 

r sMassMailing . set Parameter ( "cpi_id" , _variant_t (atol (strCpild. c_str{) } ) ) ; 

} 

else 

r sMassMailing . setActiveCommand ( "cmdGetAll" ) ; 

if {(fSuccess - pconn- > ex ecu te { rsMassMai ling ) ) -= false) 
{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 

} 

else 
{ 

m_pdocResults = new CXmlDocument ( "<getMassMailing/>" ) ; 
fSuccess = r sMassMailing . toXml ( *m_pdocResult s ) ; 

} 

} 

ca tch (_com_er ror & e) 
{ 

m_emLast . setError (e) ; 
fSuccess = false; 

} 

ca tch (...) 
{ 

m_emLa st . setError { "Unkown exception raised. (Command : getReminder ]") ; 
fSuccess = false; 

} 

return fSuccess; 

1 



C:\Documents and Setti ngs\bil lyhe\My . . . \LCServices\LCBroker\xc getMedications . cpp 1 

#include "xc_Ge tCommands . h" 
#include "rs_medication.h" 

////////////// ////// ///////////// 
CXC_IMPLEMENT_FACTORY ( Cxc_ge tMedica t ions ) 

bool Cxc_getMedica tions : : execCommand ( ) 
{ 

bool fSuccess = true; 

try 
{ 

Cr s_medication r s_medication; 
string strCpild; 

CSdoConnection * pconn = m_pcoClient->ge tConnect ion ( ) ; 

//get cpi_id 

if {getParm { "cpi_id" , strCpild) == false) 
{ 

m_emLast . setError ( " \ "cpi_id\ " is a required parameter."); 
throw fSuccess = false; 

} 

//check if opioid is null. 

if ( strCpild . empty () ) 

{ 

m_emLast . setError { "\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

long lCpild = atol ( strCpild . c_str ()) ; 

//fetch all bp records . 

rs_medica t ion . clear Par ms () ; 

r s_medication . setRecor dSetToNull ( ) ; 

rs_medi cation . setActive Command ( "cmdFetch" ) ; 

rs_medication . setParm ( "cpi__id" , _variant_t (lCpild)); 

if (pconn->execute ( r sjmedica tion) == false) 

{ 

m_emLast .setError ( pconn- >getLast Err or { ) ) ; 
throw fSuccess = false; 

} 

else 
{ 

m_pdocResul ts = new CXml Document {" <ge tMedica t ions />") ; 
fSuccess = rs_medica tion . toXml ( + m_pdocResul ts ) ; 

} 



catch {bool fError) 

f Error ; 

catch (_com_error & e) 

m_emLast . setError (e) ; 
fSuccess = false; 

ca tch { . . . ) 

m_emLast . setError ( "Unkown exception raised, [Command : getMedications ]") ; 
fSuccess = false; 
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} 
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* include "xc_getCommands . h" 
# include "r s_misc__id . h" 

///////////////////////////////////////////////////////////////// 

CXC_ I MPLEMENT_ FACTORY (Cxc_getMisd Ds ) 

bool Cxc_getMiscIDs : : execComtnand ( ) 
{ 

bool f Success = fal se; 

try 
{ 

Crs_misc_id rsMiscIDs; 
string strParm; 

rsMiscIDs . se tAct iveCommand ( "cmdFetch" ) ; 

if ( getParm { "cpi_id" , strParm) == false) 
{ 

m_emLast . setError { " \ "cpi__id\ " is a required parameter.") ; 
return false ; 

} 

_variant_t vCpilD {atol (strParm. c_str ( ) ) ) ; 

rsMiscIDs . set Parameter { "cpi_id" , vCpilD) ; 

CSdoConnect ion * pconn = m_pcoClient->getConnect ion ( ) ; 

if ((fSuccess = pconn->execute (rsMiscIDs) ) -= false) 
m_emLast . setError (pconn->getLas tError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( "<getMiscIDs/> " ) ; 
fSuccess = rsMiscIDs . toXml ( + m_pdocResul t s ) ; 

} 

} 

catch (_com_error & e) 
{ 

m_emLast . setError (e ) ; 
fSuccess - false; 

) 

catch ( ... ) 
{ 

m_emLast . setError ( "Unknown exception raised. [Command : getMiscIDs ]") ; 
fSuccess = false; 

} 

return fSuccess; 

} 
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jf include "xc_get Commands . h" 
# include "rs_name.h" 

///////////.///////// ///////////////////////////////////////////// 

CXC_ I MPLEMENT_ FACTORY { C>: c_ge t Name ) 

bocl Cxc_getName : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_name rsName; 

string strCpilD; 
string strActiveSw; 

if {getParm ( "cpi_id" , strCpilD) -= false) 
{ 

m_emLast . setError ( " \ "cpi_id\ " is a required parameter."); 

return f a 1 s e ; 

} 

_variant_t vCpilD {atol ( s trCpi I D . c_str ( ) ) ) ; 

rsName. setActive Command ( "crnd Fetch" ) ; 
r sName . set Parameter { "cpi_id" , vCpilD) ; 

if (getParm { "active_sw" , strActiveSw) == true) 
{ 

_var iant_t vActiveSw (atol (strActiveSw. c_str ( ) } ) ; 
rsName . set Parameter ( M active_sw M , vActiveSw) ; 

} 

CSdoConnect ion + pconn = m_pcoCl ient->getConnection ( ) ; 

if ((fSuccess = pconn->execute (rsName ) ) ~~ false) 
m_emLast . setError (pconn->getLastErr or ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXmlDocument ( "<ge tName /> " ) ; 
fSuccess = rsName . toXml ( + m_pdocResults ) ; 

} 

catch (_com_error & e) 

m_ernLast .setError (e ) ; 
fSuccess = false; 

ca tch ( . . . ) 

m_emLast . setError ( "Unkown exception raised. [ Command : getName ]") ; 
fSuccess = false; 



return fSuccess; 

) 
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^include " xc_ge tCommands . h " 
8 include " r s_encounter . h " 

//////////////////////////////// ///////////////////////////////// 

CX C_ I MPLEMENT_ FACTORY ( Cxc_ge tNewEncoun t er Id ) 

bool Cxc_getNewEncounterId : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_encounter rsEncounter; 

//set the command 

rsEncounter . setActiveCommand ( " cmdFe tchNewEncounter Id" ) ; 

CSdoConnection + pconn = m_pcoClient->getConnect ion ( ) ; 

if ((fSuccess = pconn->execute (rsEncounter ) ) « false) 
m_emLast . setError (pconn->getLastError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResult s = new CXml Document ( "<getLoa />") ; 
fSuccess - rsEncounter . toXml ( *m_pdocResults ) ; 

} 

} 

catch (_com_err or & e) 
{ 

m_emLast . setError (e ) ; 
fSuccess - false; 

} 

catch ( ... ) 
{ 

m_emLast . setError ( "Unknown exception raised. [ Command : getNewEncounter Id ]") ; 
fSuccess = false; 

} 

return fSuccess; 

} 
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If include "xc_getCommands . h" 

# include " r s_unregis ter ed_user . h" 

////////////////7///V///////////////////////////// ////////////// / 
CXC_ I MPLEMENT_ FACTORY (Cxc_ge tNewUnregUser Id) 

bocl Cxc__getNewUnregUser Id : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_unregistered_user rsUnregUser ; 

//get: db connect". ion 

CSdoConnection * pconn = m_pcoClient->ge tConnect ion { ) ; 

//get: new id. 

long lUnregUserld = ge tNewUnregUser Id () ; 

if ( ! lUnregUserld) 

{ 

m_emLast . setError ( "Unexpected error. Could not get new unregistered user id.")* 
throw fSuccess = false; 

} 

long lAuditld = getAudi t Id ( ) ; 

if ( i lAuditld) 

{ 

m_emLast . setError { "Unexpected error. Could not get new audit id."); 
throw fSuccess = false; 

} 

///////////////////////////////////;////.'///////////, '/////////// 

ft update the access date for the unreg u?ei . 

///////////////////////////////////////////////// // ///////////// 
DATE dtEf f ectiveDate; 

dtEf f ectiveDate = (DATE) COleDateTime : : Ge tCur rentTime ( ) ; 

//update the urn: eg user 
rsUnregUser . clear Farms ( ) ; 
rsUnregUser. setRecordSetToNull ( ) ; 
rsUnregUser . setAct iveCommand ( "cmdUpdate" ) ; 

rsUnregUser. set Parameter { "user_id" , _var iant_t (lUnregUserld) ) ; 
rsUnregUser. set Parameter ( " ef f ective_dt " , _va ri an t_t (dtEf f ectiveDate ) ) ; 
rsUnregUser. set Parameter ( "access_dt" , _variant_t (dtEffectiveDate) ) ; 
rsUnregUser. setParameter ( "audit_id" , _var iant__t (lAuditld) } ; 
if ((fSuccess = pconn~>execute (rsUnregUser ) ) == false) 
{ 

m_emLast .setError (pconn->getLastEr ror ( ) ) ; 
throw fSuccess = false; 

} 

//construct the XML result. 

m^pdocResults = new CXml Document { "<ge tNewUnregUser Id/ >") ; 
m_pdocResul ts->addChild { "user_id" , _variant_t (lUnregUserld) ) ; 

} 

ca tch (_com_error & e) 
{ 

m_emLast .setError (e) ; 
fSuccess = false; 

) 

ca tch { . . . ) 
{ 
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m_emLast . setError ( "Unknown exception raised 
fSuccess = false; 

} 

return fSuccess; 

} 



[Command : ge tNewUnr egUser Id ] ") ; 
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^include "xc_ge tCommands . h" 
#include "rs nok.h" 



///////// / / ////////////////// / / / /////// / / / / /////////// /////////// 

CXC_IMPLEM EN T_ FACTORY (Cxc_getNok) 

bcol Cxc_getNok: : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_nok rsNok; 

string strCpild, strFName, strLName, strRelation; 

rsNok . setActiveCommand { "cmd Fetch" ) ; 

if {getParm { "cpi_id" , strCpild) ~- false) 

m__emLast . setError ( " \ "cpi_id\ " is a required parameter. " } ; 
return false; 

if (getParm( "f irst_name" , strFName) ~ false) 

m_emLast . setError ( "\ " first_name\" is a required parameter."); 
return false; 

if (getParm ( "last_name " , strLName) == false) 

m_emLa st . setError (" \ " last_name\ " is a required parameter. ") / 
return false; 

if (get Farm ( "relationship" , strRelation) false) 

m_emLast . setError (" \ "last_name\" is a required parameter."); 
return false; 



long lCpild « a tol ( strCpild . c_str {)) ; 

rsNok . set Parameter ( n cpi_id" , _variant_t ( lCpild) ) ; 

rsNok . set Parameter ( "f irst_name" , _variant_t (strFName . c_str ( ) ) ) ; 

rsNok . set Parameter ( "last_name" , _variant_t (strLName . c_str ( ) ) ) ; 

rsNok . set Parameter { " relationship" , _variant_t (strRelation. c_str ( ) ) ) ; 

CSdoConnection * pconn = m__pcoClient->getConnect ion ( ) ; 

if ((fSuccess = pconn->execute (rsNok) ) false) 
m_emLast . setError {pconn->ge tLa s tEr r or ( ) ) ; 

if (fSuccess) 
{ 

m__pdocResul t s = new CXml Document ( "<getNok/> " ) ; 
fSuccess = r sNok . toXml ( *m_pdocResults ) ; 

) 

} 

catch (_com_error & e) 
{ 

m_emLas t . setError ( e ) ; 
fSuccess ~ false; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unknown exception raised. [Command : getNok] ") ; 
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fSuccess = false; 



return fSuccess; 
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If include "xc_ge tCommands . h" 
ifinclude "rs nok.h" 



//////// //////////////// ///////////////////////////////// //////// 

CXC_ I MPLEMENT_ FACTORY (Cxc_getNokAll ) 

bool Cxc_getNokAll : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_nok rsNok; 
string strCpild; 

rsNok . setActiveCommand ( "cmdFetchAll" ) ; 

if (getParm { "cpi_id M , strCpild) == false) 
{ 

m_emLast . setError ( " \"cpi_id\ " is a required parameter."); 
return false; 

} 

long lCpild = a t ol ( s t rCpi Id . c_s t r ( ) ) ; 

rsNok. set Parameter ( "cpi_id", _variant_t (lCpild) ) ; 

CSdoConnection * pconn = m_pcoClient->getConnect ion { ) ; 

if ((fSuccess = pconn->execute (rsNok) ) == false) 
m_emLast . setError (pconn->getLastError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( "<getNokAll/>" ) ; 
fSuccess = r sNok . toXml ( *m_pdocResults ) ; 

) 

} 

ca t ch (_com_er ror & e) 
{ 

m_emLast . setError (e ) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m__emLa st . setError ( "Unknown exception raised. [Command : getNokAll ]") ; 
fSuccess = false; 

} 



return fSuccess; 

} 
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#include "xc_getCommands . h" 
^include " rs_cpi_user . h" 

//////////////////////////// /////////////////////.'/////////////// 

CXC_IMPLEMENT_FACTORY ( Cxc_ge t Pa s swordReminder ) 

bool Cxc_getPasswordReminder : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_cpi_user rs_cpi_user; 
string s trUserLogin ; 



if ( get Parm ( "user_login" , strUserLogin ) == false) 
{ 

m_emLast . setError { " \ "user_login\ " is a required parameter."); 
throw fSuccess = false; 

} 

if { strUserLogin . empty {) ) 
{ 

m^emLast. setError ( " \ "user__login\ " is NULL."); 
throw fSuccess = false; 

} 



CSdoConnection * pconn - m_pcoClient ->ge tConnection ( ) ; 

//check if user login is valid. 

rs_cpi_user . clearParrns ( ) ; 

rs_cpi_user . setRecordSetToNul 1 ( ) ; 

r s_cpi_user . setActive Command ( "cmdCheckUser " ) ; 

rs_cpi_user . set Parameter ( "user_login" , _var iant_t ( strUserLogin . c_s tr ( ) ) ) ; 

if (pconn->execute ( rs_cpi_user ) =~ false) 

I 

m_emLast . setError (pconn->getLa s tErr or ( ) ) ; 
throw fSuccess = false; 

} 

if ( r s_cpi_user . isEmpty ( ) ) //userrsgme exists in db?? 

{ 

//username not present . . . return error 
m_emLast . setError ( "Invalid User.") ; 
throw fSuccess = false; 

) 



//fetch password reminder and email address. 
r s_cpi_user . clearParrns { ) ; 
rs_cpi_user . setRecordSetToNull ( ) ; 

rs_cpi_user . set Act ive Command { "cmd Fetch Reminder " ) ; 

rs_cpi_user . set Parameter ( "user__login " , _variant__t (strUserLogin. c_s tr ( ) ) ) ; 
rs_cpi_user . set Parameter ("purpose", _variant_t ( "Email" ) ) ; 
if ((fSuccess = pconn->execute ( r s_cpi_user ) ) ~- false) 
{ 

m_emLast .setError (pconn->getLastError () ) ; 

) 

else 
{ 

//extract data 

string strPassRem, strEmailAddress ; 

if ( ! r s__cpi__user . isEmpty ( ) ) 

{ 
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rs_cpi_user . get Field { " pa ssword_remi rider " , str Pass Rem) ; 
rs_cpi_user . get Fie Id ( "email_address " , strEmailAddr ess ) ; 

} 

else 
{ 

strPassRem = ""; 
strEmailAddress = ""; 

} 

//construct xml result. 

m_pdocResults - new CXmlDocumen t { "<get PasswordReminder /> " ) ; 

openXmlTag ( "cpi_user " ) ; 
openXmlTag { M r ow" ) ; 

addXmlChild ( M password_reminder " , s trPassRem . c_str ( ) ) ; 
addXmlChild ( " email_address " , strEmailAddress . c_str ( ) ) ; 
closeXmlTag ( ) ; 
closeXmlTag ( ) ; 



catch (bool f Error) 

f Error ; 

catch (_com_error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : get Pa sswordReminder ] " ) ; 
fSuccess = false; 



return fSuccess; 

} 
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If include "xcje tCommands . h" 
t{ include " rs_location . h " 

///////// ///////////// ///////////////////////////////////// ////// 

CXC_IMPLEMENT_ FACTORY (Cxc_get PatientLocation) 

bool Cxc_getPat ientLocation : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_loca tion_occupant r s_loc_occ ; 
string strEncId; 

if (getParm( "enc_id" , strEncId) == false) 
{ 

m_emLast . setError ( " \ "enc_id\ " is a required parameter !!!"); 
return false; 

} 

rs_loc_occ . setActiveCommand ( "crndFetch" ) ; 

rs_loc_occ . setParm { "enc__id" , _variant_t (atol (strEncId . c_str ()))); 

CSdoConnection * pconn = m_pcoClient->getConnection ( ) ; 

if {{fSuccess = pconn->execute (rs_loc_occ) ) == false) 
m__emLast . setError (pconn->getLa s tErr or ( ) ) ; 

if (fSuccess) 
{ 

m__pdocResults = new CXmlDocument ( "<getPa tientLocation/>" ) ; 
fSuccess = r s_loc_occ . toXml ( *m_pdocResults ) ; 

} 

catch (_com_error & e) 

m_emLast . setError ( e ) ; 
fSuccess = false; 

catch { ... ) 

m^emLast. setError ("Unknown exception raised. [Command : get PatientLocation] " ) ; 
fSuccess = false; 



return fSuccess; 

} 



C:\Docu ments and Settings\billyhe\My . . . LCServi cesXLCBroker \xc getPatientStatus . cpp 1 

*f include " xc_get Comma nds . h" 
^include "rs encounter. h" 



///////////////////////////////7///////7///////////// ////// ////// 

CXC_IMPLEMENT__ FACTORY { Cxc_ge t Pa t ien t S t a tus ) 

bool Cxc_getPa tientStatus : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_encounter rsEncounter; 
string strCpild; 

rsEncounter . se tAct iveCommand { "cmdFetchPatientSta tus " ) ; 

if {getParm ( "cpi_id" , strCpild) == false) 
{ 

m_emLast . setError { " \ "cpi_id\" is a required parameter."); 

return f a 1 s e ; 

} 



long lCpild = a tol { strCpild . c_str {)) ; 

rsEncounter. set Parameter ( "cpi_id" , _variant_t { lCpild) ) ; 

CSdoConnection * pconn = m_pcoClient->getConnection { ) ; 

if ((fSuccess = pconn->execute ( rsEncounter ) ) == false) 
m_emLast . setError (pconn->getLastError { ) ) ; 

if (fSuccess) 
{ 

rn_pdocRe suits = new CXmlDocument ( "<getPatientStatus/>" ) ; 
fSuccess = rsEncounter . toXml ( *m__pdocResul t s ) ; 

} 

catch (_com_error & e) 

m_emLast .setError (e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : getPatien tSta tus ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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^include "xc__getCommands . h" 

# include " r s_pa tient_valuables . h" 

////////////////////////////////////////////////// /////////////// 

CXC_IMPLEMENT_ FACTORY ( Cxc_ge t Pa tien t Valuables ) 

bool Cxc_getPatientValuables : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_patient_valuables rs Valuables; 
string strEncId; 

rs Valuables . se tAct iveCommand ( M cmd Fetch" ) ; 

if (getParm ( "enc_id" , strEncId) == false) 
{ 

m_emLast . setError ( "\ "enc_id\" is a required parameter.") ; 
return false; 

} 

long lEncId = a tol ( strEncId . c_str ()) ; 

rs Valuables. set Parameter ( M enc_id" , _variant_t (lEncId) ) ; 

CSdoConnection + pconn = m_pcoClient->ge tConnec tion ( ) ; 

if ((fSuccess = pconn->execute ( rsValuables ) ) == false) 
m_emLast .setError { pconn- >ge tLa s tEr r or ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXmlDocumen t ( " <ge t Pa t ien tValuables /> " ) ; 
fSuccess = rsValuables . toXml ( * m_pdocResul t s } ; 

} 

catch (_com_error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

ca tch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : getPatientVa luables ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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If include "xc_get Commands . h" 
# i n elude "rs_per son . h" 

///// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /" / / / / / / / / / 

CXC_ I MPLEM EN T_ FACTORY (Cxc_get Person ) 

bool Cxc_ge tPer son : : execCommand ( ) 
{ 

bool f Success = false; 

try 
{ 

Crs_person rsPerson; 
string strCpilD; 

if (getParm { "cpi_id" , strCpilD) == false) 
{ 

m_emLast . setErr or { "\ "cpi_id\ " is a required parameter."); 
return false; 

} 

_variant_t vCpilD ( atol ( strCpilD . c_str ( ) ) ) ; 

rsPerson. se tAct iveCommand ( "cmd Fetch" ) ; 
r s Per son . set Parameter ( "cpi_id" , vCpilD) ; 

CSdoConnection + pconn = m_pcoClient->ge tConnect ion ( ) ; 

if ((fSuccess == pconn->execute (rsPerson) ) == false) 
m_emLast . setError (pconn->ge tLastError ( ) ) ; 

i f ( fSuccess ) 
{ 

m_pdocResults = new CXmlDocument ( "<getPerson/>" ) ; 
fSuccess = rsPerson . toXml ( *m_pdocResul t s ) ; 

} 

) 

ca t ch (_com_er ror & e) 
{ 

m_ernLast . setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setErr or ( "Unkown exception raised. [Command : get Per son ]") ; 
fSuccess = false; 

} 

return fSuccess; 

) 
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^include "xc_getCommands . h" 
# include "rs_phone.h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_get Phone) 

bocl Cxc__getPhone : : execCommand ( ) 
{ 

bool fSuccess ~ false; 

try 
{ 

Crs_phone rsPhone; 
string strCpilD; 
string StrActiveSw; 

rs Phone . setActiveCommand ( "cmd Fetch" ) ; 

if (getParm{"cpi_id' T , strCpilD) == false) 
{ 

m_emLast . setError ( "\"cpi_id\" is a required parameter."); 
return false; 

} 

_variant_t vCpilD (atol { st rCpi ID . c_s tr ( ) ) ) ; 
r sPhone . setParameter { "cpi_id" , vCpilD) ; 

if (getParm ( "active_sw" , strActiveSw) == true) 
{ 

_variant__t vActiveSw (atol (strActiveSw . c_str { ) ) ) ; 
rs Phone . setParameter ( "active_sw" , vActiveSw) ; 

} 

CSdoConnection * pconn = rn_pcoClient->getConnect ion { ) ; 

if ((fSuccess = pconn->execute (rsPhone) ) == false) 
m_emLast . setError ( pconn->ge tLastError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXmlDocument ( "<ge tPhone /> " ) ; 
fSuccess = rsPhone . toXml ( *m_pdocResults ) ; 

} 

catch (_com_error & e) 

m_emLa s t .setError (e) ; 
fSuccess = false; 

ca tch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : getPhone ]") ; 
fSuccess = false; 



return . fSuccess ; 

} 
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H include "xc_ge tCommands . h" 
^include " r s_physical . h" 

////////////// ////V/////// /////////////////////////////// //////// 
CXC_ I MPLEMENT_ FACTORY (Cxc_get Physical Info ) 

boel Cxc_getPhysicalInf o : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_physical rsPhysical; 
string strCpilD; 

rsPhysical . setAc ti veCommand ( "cmdFetch" ) ; 

if (getParm{"cpi_id" / strCpilD) » false) 
{ 

m_emLas t . setError { "\ "cpi_id\" is a required parameter."); 
return false; 

} 

long lCpilD = a tol ( s trCpilD . c_str { ) ) ; 

rsPhysical. set Parameter ( "cpi_id" , _variant_t ( lCpilD) ) ; 

if {{fSuccess = m_pcoClient~>getConnection () ->execute ( rsPhysical ) ) == false) 
m_emLast . setError (m_pcoCl ient->getConnection { ) ->getLastEr ror ( ) ) ; 

if {fSuccess) 

{ 

m_pdocResul ts = new CXmlDocument ( "<ge t Physicallnf o/> " ) ; 
fSuccess = rsPhysical . toXml ( *m_pdocResul ts ) ; 

} 

catch (_com_error & e) 

m_emLast .setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : get Physicallnf o] " ) ; 
fSuccess = false; 



return fSuccess; 

} 
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^include "xc_ge t Comma nds . h" 
^include " r s_physicians . h" 

////////////////////////////////////////////// /////' //////// ////// 

CXC_IMPLEMENT_ FACTORY (Cxc_getPhysicianInf o) 

bool Cxc_getPhysicianInf o : : execCommand ( ) 
{ 

bool fSuccess = false; 

try" 
< 

Cr s_physicians rsPhysician; 
string strEncID; 

rsPhysician. setActiveCommand ( "cmdFetchHcpByEnc" ) ; 

if (getParm("enc_id", strEncID) ===== false) 
{ 

m_emLast . setError { "\ "enc_id\ " is a required parameter."); 

return false; 

} 

long lEncID == atol (strEncID. c_str () ) ; 

rsPhysician. set Parameter { "enc_id" , _variant_t ( lEncID) ) ; 

if {{fSuccess = m_pcoClient~>getConnect ion () ->execute ( rsPhysician) ) ===== false) 
m_emLast .setError (m_pcoCl i en t->ge t Connect ion ()~>getLastError () ) ; 

if {fSuccess) 
{ 

m_pdocResults = new CXml Document { "<get Physicianlnf o/>" ) ; 
fSuccess = rsPhysician . toXml ( *m_pdocResults ) ; 

} 

ca tch {_com_error & e) 

m_emLast .setError (e) ; 
fSuccess - false; 

catch { . . . ) 

m_emLast . setError ( "Unknown exception raised. [ Command : get Physicianlnf o] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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^include "xc_ge tCommands . h" 
^include "r s_physicians . h " 

//////////////////////// /////////// 

CXC_IMPLEMENT_ FACTORY ( Cxc_get Physicians ) 

bool Cxc_getPhysicians : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_physicians rsPhysician; 

rs Physician. setActive Command ( "cmdFe tchAll " ) ; 



CSdoConnection *pconn = m_pcoClient->getConnection ( ) ; 

if ((fSuccess = pconn->execute (rsPhysician) ) == false) 

m_emLast . setError (rn_pcoClient ~>getConnection ( ) ->getLas tError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument ( M <getPhysicians/>" ) ; 
fSuccess = rsPhysician . toXml ( + m_pdocResul t s ) ; 

} 

} 

catch {_com_error & e) 
{ 

m_emLast .setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_ernLast . setError { "Unknown exception raised. [Command : ge tPhysicians )") ; 
fSuccess = false; 

} 

return fSuccess; 

) 
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^include "xc_ge tCommands . h" 
ifinclude "rs^location.h" 

///////////////////////////////////////////////////////////////// 

CXC_ IMPLEMENT^ FACTORY { Cxc__ge t Pocs ) 

bccl Cxc_getPocs : : execCommand { ) 
I 

bool fSuccess - false; 

try 
{ 

Crs_poc rs_poc; 

rs_poc . se tAct iveCommand { " cmdFe tchAl 1" ) ; 

CSdoConnection * pconn = m_pcoClient~>getConnection ( ) ; 

if ((fSuccess = pconn->execute (rs_poc) ) == false) 
m_emLast . setError (pconn->getLastError ( ) ) ; 

i.f (fSuccess) 
{ 

m_pdocResults = new CXml Document ( "<getPocs/>" ) ; 
fSuccess = r s_poc . toXml ( *m_pdocResults ) ; 

) 

} 

catch (_com_error 6 e) 
{ 

m_emLast .setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unknown exception raised. [Command : get Pocs ]") ; 
fSuccess = false; 

} 

return fSuccess; 

} 
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# include "/.c_GetCommands . h" 
#include " r s_pre_admi t . h " 

/////////////////////////////////////////// 

CXC_IM PL EMENT_ FACTORY (Cxc_get PreAdmit ) 

bool Cxc_get PreAdmit : : execCommand ( ) 
< 

bool fSuccess = false; 

try 
{ 

Crs_pre_admi t rsPreAdmit; 
string strEncId; 
string strRecId; 
long lEncId = 0; 

//set the command 

rs PreAdmit . set Act iveCommand ( "cmd Fetch" ) ; 

//get che parameter 

bool fParamExist = get Parm ( "enc__id" , strEncId); 
if (fParamExist) lEncId = atol (strEncId . c_str {)) ; 

if (! fParamExist I | lEncId == 0) 
{ 

rn_emLast . setError ( "\ "enc__id\" is a required parameter and should not be 0."); 
return false; 

} 

//set che parameter 

rs PreAdmit . set Parameter ( M enc_id" , _variant_t (lEncId) ) ; 

//Do v;e have the rec_ id ? If yes, then set rec_icl parameter. 

if (get Parm ( "rec_id" , strRecId) == true) 
{ 

long IRecId - atol { strRecId . c_str ()) ; 

if (IRecId) rsPreAdmit . setParameter ( "rec_id" , _variant_t { IRecId )) ; 

) 

CSdoConnection * pconn = m_pcoCl ient->getConnect ion ( ) ; 

if ((fSuccess = pconn->execute (rsPreAdmit) ) == false) 
m_emLas t . setError ( pconn->getLast Err or () ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXmlDocument ( "<get PreAdmit />" ) ; 
fSuccess = rsPreAdmit . toXml ( *m_pdocResul t s ) ; 

} 

ca tch (_com_er ror & e) 

m_emLast . setError (e) ; 
fSuccess = false; 

ca tch ( . . . ) 

m__emLast . setError ( "Unknown exception raised. [Command : getPreAdmit] ") ; 
fSuccess = false; 



return fSuccess; 

} 
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*f include "xc_Ge t Commands . h" 
# include " r s_blood_pressure . h" 

///////////////////////////////////////////////////////////////// 
C X C_ I MPLEMENT_ FACTORY ( Cxc_ge t Pul seReadings ) 

bool Cxc_get Pul seReadings : : execCommand ( ) 
{ 

bool fSuccess = true; 

try 
{ 

Cr s_blood_pressure rsBP; 

string strCpild, strStar tDate , strEndDate; 
CSdoConnection * pconn = m_pcoClient->getConnection { ) ; 

//get cp:i_id 

if (get Farm (" cpi_id" , strCpild) == false) 
{ 

m__emLast . setError ( "\ "cpi_id\ " is a required parameter."); 
threw fSuccess = false; 

} 

//optional parameters. 

getParm ( " star t_dt " , strS tartDa te ) ; 

getParm("end_dt", strEndDate) ; 

//check if opioid is null. 

if (strCpild . empty () ) 

{ 

m_emLast . setError ( "\ "cpi_id\ " is NULL."); 
t hrow fSuccess - false; 

) 

long lCpild - a tol ( strCpild . c__str ()) ; 

//if stazt^dt is not provided, then fetch all pulse records. 

if ( strStartDate . empty () ) 

{ 

//fetch all pulse records. 

r sBP . setActiveCommand ( "cmdFet chPulseAll " ) ; 
rsBP . setParm{ "cpi_id", _variant_t {lCpild)); 

} 

else 
{ 

COleDateTime oledate; 
DATE dtStartDate; 

/ / par se star t__dt . 

oledate . Parse Da teTime (strStartDate. c_str ( ) ) ; 
dtStartDate = (DATE) oledate; 
if (dtStartDate NULL) 
{ 

m_emLast . setError ( " \ " star t_dt \ " is Invalid."); 
throw fSuccess = false; 

} 

if ( strEndDate . empty () ) 
{ 

//fetch all bp records . 

r sBP . setActiveCommand ( "cmdFetch PulseByStart Da t e " ) ; 

rsBP . setParm ( "cpi_id" , _variant_t (lCpild)); 

r sBP . setParm ( "start__dt " , _variant_t (dtStartDate)); 



} 
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else 
{ 

DATE dtEndDate; 

//parse end_dt. 

oledate . Parse Da teTime ( strEndDa te . c_str ( ) ) ; 
dtEndDate = (DATE) oledate; 
if (dtEndDate « NULL) 
{ 

m^emLast .setError ("\"end_dt\" is Invalid."); 
throw fSuccess = false; 

} 

//get records from start _dt to end dt 

rsBP . setActiveCommand ( "cmdFet ch Pulse By Da t eRange " ) ; 

r sBP . se tParm ( "cpi_id" , _variant_t (lCpild)); 

rsBP . setParm ( "start_dt " , _variant_t (dtStartDate) ) ; 

rsBP. setParm( M end_dt", _variant_t (dtEndDate)); 

) 

} 



if (pconn->execute (rsBP) -= false) 
{ 

m_emLast . setError (pconn->ge tLas tError ( ) } ; 
throw fSuccess = false; 

} 

else 
{ 

rn_pdocResult s = new CXmlDocument ( " <get Pul seReadings /> " ) ; 
fSuccess = r sBP . toXml ( *m_pdocResul t s ) ; 

} 



catch (bool fError) 

f Error ; 

catch (_com_error . & e) 

m_emLast . setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : get Pul seReadings ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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^include M xc__getCommands . h" 
^include " r s_reminder s . h" 

////////////////////////////// //////////// /////////////////////// 
CXC__IMPLEMENT_FACTORY ( Cxc_ge t Reminder ) 

bool Cxc_getReminder : : execCommand ( ) 
{ 

bool fSuccess ~ false; 

try 
{ 

Crs_reminder rsReminder; 

string strCpild; 
string strRecId; 

if { getParm ( "cpi_id" , strCpild) == false) 
{ 

m_emLast . setError ( "\"cpi_id\" is a required parameter. ") ; 

return false; 

} 

getParm ( "rec_id" , strRecId); 

CSdoConnection * pconn = m_pcoClien t->ge tConnection ( ) ; 

if ( strRecId . size () ) 
{ 

rsReminder. set Act iveCommand ( " cmdGe tOne " ) ; 

rsReminder . set Parameter ( "rec_id" , _variant_t (atol (strRecId. c_str ()))); 

} 

else 

rsReminder . set Act iveCommand ( "cmdGetAll " ) ; 
rsReminder . set Parameter ( "cpi_id" , __variant_t (atol (strCpild. c__s tr ()))); 

if ({fSuccess = pconn~>execute {rsReminder ) ) == false) 
{ 

m_emLast . setError ( pconn->getLas tEr ror ( ) ) ; 

} 

else 
{ 

m_pdocResul ts = new CXmlDocument { M <getReminder />" ) ; 
fSuccess = rsReminder . toXml ( *m_pdocResults ) ; 

} 



catch (_com_error & e) 

m_emLast .setError ( e) ; 
fSuccess - false; 

ca tch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : getReminder ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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^include " xc_ge tCommands . h" 
it include " r s_loca tion . h " 

////////////////////////// ////\'// /////;///////// ///////////////// 

CXC_IM PL EM EN T_ FACTORY (Cxc_getRooms ) 

bool Cxc_getRooms : : execCommand ( ) 
{ 

bool f Success = false; 

try 
{ 

Crs__room rs_room; 

r s_room . setAct iveCommand { "cmdFe t chAl 1 " ) ; 

CSdoConnect ion * pconn = m_pcoClient->getConnect ion ( ) ; 

if ( (fSuccess = pconn->execute (rs_room) ) == false) 
m_emLast . setError (pconn~>getLastError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResul ts - new CXmlDocument ( "<getRooms /> " ) ; 
fSuccess = r s_room . toXml ( + m_pdocResults ) ; 

} 

catch (_com_error & e) 

m_emLas t . setError { e ) ; 
fSuccess = false; 

catch (...) 

rn_emLast . setError ( "Unknown exception raised. [Command : getRooms ] " ) ; 
fSuccess = false; 



return fSuccess; 

} 
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II include "xc_ge t Commands . h M 
^include "rs encounter. h" 



///////////////////////////////////////////////////////////////// 

CXC_IM PL EMENT_ FACTORY (Cxc_getSecuri tylnf o) 

bool Cxc_getSecuri tylnf o : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_encounter rsEnc; 
string strEncId; 

rsEnc. setActiveCommand ( "cmdFetchSecur ity" ) ; 

if (getParm { "enc_id" , strEncId) == false) 
< 

m_emLas t . setError { " \ "enc_id\ " is a required parameter."); 
return false; 

} 

_variant_t vEncID (atol (strEncId. c_str { ) ) ) ; 
rsEnc . set Parameter ( "enc id" , _variant_t ( vEncID) ) ; 



CSdoConnection *pconn = m_pcoClient->ge tConnection ( ) ; 

if {{fSuccess = pconn->execute (rsEnc) ) — false) 

{ 

m_emLast . setError {pconn->getLastEr ror { ) ) ; 

} 

e 1 s e 
{ 

m^pdocResults = new CXml Document ( "<getSecurity!nf o/>" ) ; 
fSuccess = rsEnc . toXml ( *m_pdocResul ts ) ; 

} 



catch {_com_error & e) 

m_emLast . setError (e); 
fSuccess = false; 

catch { . . . ) 

m_emLast . setError ( "Unknown exception raised. [Command : getSecur itylnfo] " ) ; 
fSuccess = false; 



return fSuccess; 

} 
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# include "xc_otherCommands . h" 
^include "r s_company . h" 



///////////////////////////////////////////////////////////////// 

CXC_IMPLEMENT_FACTORY ( Cxc_ge t SLMDLoca t i ons ) 

bool Cxc_getSLMDLocations : : execComrnand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_company rsCompany; 
string strZip; 

if (getParm ( " zip" , strZip) == false) 
{ 

m_emLast . setError ( "\ " zip\ " is a required parameter."); 
throw fSuccess = false; 

} 

i f ( strZip . empty { ) ) 
{ 

m_emLast . setError ( "V'zipV* is null."); 
throw fSuccess - false; 

} 

rsCompany . setActive Command ( " cmdFe t chLoca tions " ) ; 

rsCompany . set Parameter (" zip" , __variant_t ( strZip . c_str {))) ; 

CSdoConnection * pconn = m_pcoCl ient->getConnection ( ) ; 

if {{fSuccess = pconn->execute (rsCompany) ) = = false) 
{ 

m__emLast . setError (pconn~>ge tLastEr ror ( ) ) ; 

} 

else 
{ 

m_pdocResults = new CXmlDocument ( "<getCompany/>" ) ; 
fSuccess = rsCompany . toXml ( *m_pdocResul t s ) ; 

} 



catch (bool f Err or) 

f Error ; 

catch(_com_error & e) 

m_emLast . setError (e) ; 
fSuccess = false; 

catch (...) 

m__emLast . setError ( "Unknown exception raised. [ Command : getSLMDLoca tions ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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# include "xc__getS ta t s . h " 

///////////////////////////////////////////////////////////////// 

Cxc_getStats : : Cxc_get Stats ( ) 

{ 

m_f ConnectRequired = false; 

} 

CXC_IMPLEMENT_ FACTORY ( Cxc_ge t S ta t S ) 

bool Cxc_getStats : : execCommand ( } 
{ 

bool fSuccess = true; 

try 
{ 

// create xml document 

m__pdocResults = new CXmlDocument ( "<getStats />" ) ; 
CXmlElement elCount; 

m_pdocResults->createElement ( " tot client s" , 

_variant_t (_Module . m_stat sLCBroker . m_lTota 1C1 ients ) , &elCount ) ; 
m_pdocResults->addChild ( & elCount ) ; 
m_pdocResults->createElement ("currclients", 

_variant_t (_Module . m_s tat sLCBroker . m_lCur rent CI ients ) , &elCount ) ; 
m_pdocResul t s->addChild UelCount) ; 
m_pdocResult s->crea teElemen t ( "numcmds" , 

_variant_t (_Module . m_s tat sLCBroker . m_l Commands Processed ) , &elCount } ; 
m_pdocResul t s ->addChi Id ( &elCount ) ; 

// send start time 
BSTR bstrDate; 

VarBstrFromDate (^Module . m_s tat sLCBroker . m_var timeStar ted, 0, 0, &bstrDate); 
CXmlElement elTime; 

m__pdocResul t s->crea teElement ( " s t artt ime", (char *) _bstr_t (bstrDate , false), & ^ 
elTime) ; 

m_pdocResult s ->addChi Id ( & elTime ) ; 

// send current z ime 
SYSTEMTIME st; 
Get Local Time ( &st ) ; 

DATE timeNow; * 
SystemTimeToVariantTirae { &st , &timeNow) ; 
VarBstrFromDate ( timeNow, 0, 0, &bstrDate); 

m_pdocResults->createElernent ( "cur renttime" , (char *) _bstr_t (bstrDate, false), & * 
elTime ) ; 

m_pdocResul ts->addChild UelTime) ; 

/ / this command should not be included in the total command processed count 
// as this command is called periodically to collect stats. As the count is 
// incremented in TSLXML interface file, decrement, it here by 1. 
__Module.m s tat sLCBroker . m ICommands Processed-- ; 



catch (_com_error & e) 

m_emLast . set Err or (e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : getStats ]") ; 
fSuccess ~ false; 



return fSuccess; 

} 
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#include " xc_GetCommands . h" 
#include "rs__surger y . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_ge tSurgerylnf o ) 

bocl Cxc_getSurgeryInf o : : execCommand { ) 
{ 

bool fSuccess = true; 

try 
{ 

Crs_surgery rs_surgery; 
string strCpild; 

CSdoConnection * pconn ~ m_pcoCl ient->getConnec tion ( ) ; 

//get cpi_id 

if (getParra ( n cpi_id" , strCpild) == false) 
{ 

m_emLast . setError ( "\ "cpi_id\ " is a required parameter."); 
throi\' fSuccess = false; 

} 

//check if cpi_id is null. 

if (strCpild . empty () ) 

{ 

m_emLast - setError (" \ "cpi_id\ " is NULL."); 
throw fSuccess = false; 

} 

long lCpild = atol ( strCpild . c_str ()) ; 

/ / fete h a 1 1 bp r e c o r d s . 

rs_surgery. clear Pa rms () ; 

rs_surgery. setRecordSetToNul 1 ( ) ; 

rs_surger y . setAct iveCommand ( "cmd Fetch" ) ; 

rs_surgery . setParm ( "cpi_id" , _variant_t (lCpild)); 

if (pconn->execu te ( r s_surgery) ~~ false) 

{ 

m_emLast . setError (pconn->ge tLa stErr or ( ) ) ; 
throw fSuccess = false; 

} 

else 
{ 

m_pdocResul ts = new CXmlDocument { " <getSurgeryInf o/> " ) ; 
fSuccess = r s_surger y . toXml ( *m_pdocResul ts ) ; 

} 



catch (bool fError) 

f Error ; 

catch (_com_error & e) 

m_emLas t . setError { e ) ; 
fSuccess = false; 

catch (...) 

m__emLast . setError ( "Unkown exception raised. (Command : getSurgerylnf o] ") ; 
fSuccess = false; 
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return fSuccess; 

} 
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8 include ">:c_Get Commands . h" 
^include "r s_therapy . h" 

///////////////////////////////////////////////////////////////// 
CXC_I M PL EMENT_ FACTORY ( Cxc_getTherapyIn f o ) 

bool Cxc_get Therapy Info : : execCommand ( ) 
{ 

booi f Success = true; 

try 
{ 

Crs_therapy rs__therapy; 
string strCpild; 

CSdoConnection + pconn ~ m_pcoClient~>ge tConnection ( ) ; 

//get cpi._id 

if (getParm { "cpi_id" ( strCpild) == false) 
{ 

m_emLast . setError { "\"cpi_id\" is a required parameter. ") ; 
throw fSuccess = false; 

) 

//check if cpi id is null. 

if ( strCpild . empty {) ) 

{ 

m_emLast . setError (" \ "cpi_id\" is NULL."); 

throw fSuccess = false; 

} 

long lCpild = a tol ( strCpild . c_str ()) ; 

//fetch a 1 1 bp record.?. 

rs_therapy . clear Farms ( ) ; 

rs_therapy. setRecordSe tToNull ( ) ; 

rs_ therapy, se t Act iveCommand ( "cmdFetch" ) ; 

rs_therapy . setParrn { "cpi_id" , _variant__t (lCpild)); 

if (pconn->execute (r s__therapy) == false) 

{ 

m_emLast . setError (pconn->get La stError (} ) ; 
threw fSuccess = false; 

} 

else 
{ 

m_pdocResul ts = new CXmlDocument ( " <getTherapyInf o/> " ) ; 
fSuccess = r s_ther apy . toXml ( *m__pdocResul t s ) ; 

} 



catch (bool f Err or) 

f Error ; 

catch (_com__error & e) 

m_emLast .setError (e ) ; 
fSuccess = false; 

ca tch ( . . . ) 

m_emLast . setError { "Unkown exception raised. [Command : getTherapylnf o] ") ; 
fSuccess = false; 
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return fSuccess; 

} ■ 
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Jjinclude " xc_ge tCommancis . h " 
^include "rs_transf er . h" 

///////////////////////////////////////////////////////////////// 

CXC_IMPLEMENT_ FACTORY ( Cxc_ge tTrans f er ) 

bool Cxc_getTransf er : : execCommand { ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_transfer rsTransfer; 

string strEncId; 
string strRecId; 
long lEncId = 0; 

//set the command 

rsTransfer. set Act iveCommand ( "cmdFetch" ) ; 

//get the parameter 

bool fParamExist = getParm ( "enc_id" , strEncId); 
if (fParamExist) lEncId = atol {strEncId . c_str ()) ; 

if (! fParamExist || lEncId 0) 
{ 

m_emLast . setError ( "\ "enc_id\ " is a required parameter and should not be 0."); 
return false; 

} 

//set the parameter 

rsTransfer. set Parameter ( "enc_id" , _variant_t (lEncId) ) ; 

//Do we have the rec_id ? If yes, then set rec_i.d parameter . 

if ( getParm ( "rec_id" , strRecId) == true) 
{ 

long lRecId - atol ( strRecId . c_s tr ()) ; 

if (lRecId) rsTransfer . setParameter ( "rec_id" , _var iant_t { lRecId ) ) ; 

} 

CSdoConnection * pconn = m_pcoClient->getConnect ion { ) ; 

if ({fSuccess « pconn->execute ( rsTransfer ) ) == false) 
m_emLast . setError ( pconn ->get Last Err or ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument { "<getTrans f er />" ) ; 
fSuccess = rsTransfer . toXml { *m_pdocResults ) ; 

} 

catch (_com_error & e) 

m_emLast .setError (e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [ Command : ge tTrans fer ]") ; 
fSuccess - false; 



return fSuccess; 

} 
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# include "xc_get Commands . h" 
tf i n c 1 u d e " r s_c p i_ma s t e r . h " 

/////////////// /////////////// ///////////'//////////////////////// 

CXC_IMPLEMENT_ FACTORY (Cxc_ge tUserBiographics ) 

bool Cxc_getUserBiographics : : execConunand { ) 
{ 

bool fSuccess - false; 

try 
{ 

Cr s_cpi_master r s_cpi_master ; 
string strCpild; 

if (getParm("cpi_id", strCpild) == false) 
( 

m_emLas t . setEr r or { " \"cpi_id\ M is a required parameter."); 
throw fSuccess = false; 

} 



//check if cpi_io in null. 

if ( strCpild . empty () ) 

{ 

m_ernLast . setError ( M \"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

long lCpild = a tol ( s trCpi Id . c_s tr ()) ; 

r s_cpi_master . se t Ac tive Command ( "crndFe t chUser Da ta " ) ; 
r s_cpi_master . setParm ( "cpi_id" , _variant_t (lCpild)); 

CSdoConnection + pconn = m_pcoCl ient->getConnect ion ( ) ; 

if ((fSuccess = pconn->execute (r s_cpi_master ) ) == false) 
m_emLas t .setError (pconn->getLastError() ) ; 

if (fSuccess) 
{ 

m_pdocResul ts = new CXmlDocument ( "<getUserBiographics /> " ) ; 
fSuccess = r s_cpi_master . toXml ( +m_pdocResults) ; 

) 

catch (bool f Err or) 

f Error ; 

ca tch (_com_error & e) 

m_emLas t .setError ( e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : getUserBiogr aphics ] M ) ; 
fSuccess - false; 



return fSuccess; 

} 



C:\Documents and Settings\billyhe\My . . . LCSe rvicesXLCBroker \xc_ getUserInsurance , cpp 

^include "xc__getCommands . h" 
#include "rs_insurance.h" 
^include "r s_address . h" 
# include "rs_phone.h" 

///////////////////////////////////////////////////////////////// 

CXC_ I M PL EMENT_ FACTORY {Cxc_getUser Insurance) 

bcol Cxc_getUser Insurance : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_phone rs__phone; 

Crs_address rs_address; 

Cr s_insurance rslnsurance; 

string strCpilD; 
string strActiveSw; 

rslnsurance. se tActiveCommand ( "cmdFetch" ) ; 

if (getParm("cpi_id", strCpilD) == false) 
{ 

m_emLast . setError { " \"cpi_id\" is a required parameter."); 

return false; 

} 

long lCpild = a tol { strCpilD . c_s tr ( ) ) ; 

rslnsurance. set Parameter ( "cpi_id" , _variant_t ( lCpild) ) ; 

if ( ge tParm { "active_sw" , strActiveSw) == true) 
{ 

_variant_t vActiveSw (a tol (strActiveSw. c_str ( ) ) ) ; 
rslnsurance . setParameter ( "active_sw" , vActiveSw) ; 

} 

CSdoConnection * pconn = m_pcoClient ~>ge tConnect ion ( ) ; 

if ((fSuccess = pconn~>execute (rslnsurance) ) == false) 
m_emLast . setError (pconn->getLastError ( ) ) ; 

if (fSuccess) 
{ 

m_pdocResults = new CXmlDocument { "<getlnsurancelnf o/>" ) ; 

openXmlTag ("insurance" , XML_TYPE__GROUP ) ; 

while (! rslnsurance . isBOF ( ) && ! rslnsurance . isEOF () ) 
{ 

openXmlTag ( "row", XML_TYPE_ROW ) ; 

//extract the required fields from recordset ana construct result xml 
string strlnsuredld = getField (rslnsurance , "cpi__id"); 
string strCompanyld = getField ( r slnsurance , " ins__company__id" ) ; 
string strSubld = get Field ( rslnsurance , " insured_id" ) ; 

//'get id's 

//cpi_id is returnees from, the insured table, so it can be self or 
subscriber id. 

long 1 Sub Id = atol (strlnsuredld. c_str ( ) ) ; 
long ICompanyld = atol (strCompanyld . c_str ()) ; 

//create the self _insured_sw 
string strSelf InsuredSw; 



c 
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//check if the 1 Sub Id is se If/ subscr i be x_id 

if (lCpild lSubld) 

{ 

//do not send bach the subscr iber_id as its the opioid of the user. 

strSubld « ""; 

strSelf InsuredSw - "1"; 

} 

else 
{ 

strSelf InsuredSw = "0"; 

} 

/ /populate result xml 

addXmlChild ( "cpi_id" , strCpilD . c_s tr ( ) ) ; 
addXmlChild ( " subscr iber_id " , strSubld . c_str ( ) ) ; 
addXmlChild ( " company_id" , str Company Id . c_str ( ) ) ; 
addXmlChild ( "self _insured__sw" , str Self InsuredSw . c_s tr { ) ) ; 
addXmlChild ( "active_sw" , getField(rsInsurance, "active_sw" ) . c__str { ) ) ; 
addXmlChild ( "rec__id" , getField(rsInsurance, "rec_id" ) . c_str ( J ) ; 

//company info 

addXmlChild ( "name" , getField (rslnsurance, " ins_company_name " ) . c_str ( ) ) ; 
addXmlChild ( "streetl" , getField ( r s Insurance , " ins_company_s t r ee 1 1 " ) . c_str * 



0 ) ; 
0 ) ; 

c__str ( ) ) ; 
0 ) ; 

c str () ) ; 



0 ) , 
0 ) , 



addXmlChild ( "street2 " , get Field { r s Insurance , " ins_company_s treet2" ) . c_str 

addXmlChild ("city", getField (rslnsurance, "ins__company__city" ) . c_str ( ) ) ; 
addXmlChild ("state", getField (rslnsurance, "ins_company_s tate " ) . c_str { ) ) ; 
addXmlChild ( "state_id" , getField {rslnsurance, " ins__company_s t a te_id" ) . 

addXmlChild ("zip", getField (rslnsurance, "ins_company_zip" ) . c_str { ) ) ; 
addXmlChild ( "country" , get Field { r s Insurance , "ins_company_country" ) . c_str ✓ 

addXmlChild (" country_id" , get Field ( rslnsur ance , " ins_company_count r y_id" ) . 

//insurance info 

addXmlChild("plan_id'\ get Field ( rslnsur ance , "plan_id") .c_str () ) ; 
addXmlChild ( "plan_code" , getField (rslnsurance, "plan_code" } . c_s tr ( ) ) ; 
addXmlChild ( "plan_type", getField (rslnsurance, "plan__type" ) . c_str ( ) ) ; 
addXmlChild("ef fective_dt", getField (rslnsurance, "ef f ective_dt " ) .c_str { ) ) * 

addXmlChild ( "expiration_dt ", get Field ( rs Insurance, "expir ation_dt " ) . c__str * 

addXmlChild ( "policy_number " , get Field ( rslnsurance , "policy_number " ) . c_str \t 

addXmlChild ( "group_name" , getField {rslnsurance, "group_name" ) . c_str ( ) ) ; 
addXmlChild { "gr oup_number " , getField {rslnsurance, "gr oup_number " ) . c_str ( ) ) 



//subscriber info (if self insured, then its self info) 

addXmlChild { "subscriber_last_name" , get Field { rslnsurance , 
" insur ed_la st_name " ) . c_str ( ) ) ; 

addXmlChild { "subscriber_f irst_name" , getField {rslnsurance, * 
" insur ed_f irst_name " ) . c_str ( ) ) ; 

addXmlChild ( " subscr iber__middle_name ", getField {rslnsurance, «r 
"insured_middle_name" ) . c_str ( ) ) ; 

addXmlChild ( "subscriber_phone" , get Field { r slnsurance , " insur ed_phone ") . ^ 

c_str()); 

addXmlChild ( " subscr iber_r elation ship" , getField (rslnsurance, 
" insur ed_rela t ion ship" ) . c_s tr { ) ) ; 

addXmlChild { " subscr iber_r elation ship_id" , getField (rslnsurance, 
" insur ed_re la tionship__id" ) . c_str ( ) ) ; 
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//get the company CLAIMS address 
rs_address . clearParms ( ) ; 
rs_address . setRecordSetToNull ( ) ; 

rs_address . set Act i veCommand ( " cmdFetchBy Pur pose" ) ; 
rs_address . setParm ( "cpi_id" , _variant_t (ICompanyld)); 
rs_address . setParm ( "purpose" , _variant_t ("Claims") ) ; 
if {(fSuccess - pconn->execute(rs_address) ) == false) 
{ 

m_emLast . setError (pconn->getLas tError ( ) ) ; 
throw fSuccess = false; 

} 

/ / populate re s u 1 1 v. m 1 
if { ! r s_address . isEmpty ( ) ) 
{ 

addXmlChild ("claims 

addXmlChild { "claims 

addXmlChild { "claims 
addXmlChild { "claims 
addXmlChild { "claims 

0 ) ; 

addXmlChild {"claims 
addXmlChild {"claims 

c_str ( J ) ; 

addXmlChild { "claims 

} 

//get the company phone 
rs_phone . clearParms { ) ; 
rs_phone . setRecordSetToNull ( ) ; 
r s_phone . se t Ac ti veCommand ( "cmd Fetch " ) ; 
rs_phone . setParm { "cpi_id" , _variant_t (ICompanyld)); 
if ((fSuccess = pconn->execute(rs_phone) ) =- false} 
{ 

m_emLast . setError {pconn->get La stErr or () ) ; 
throw fSuccess = false; 

} 

//populate result xml. 

while ( ! rs_phone . isBOF ( ) ! r s_phone . isEOF ( ) ) 

{ 



string strTag - "Unknown"; 



string strPurpose ~ 


: getField{rs_ 


_phone , 


"purpose" 


') ; 


if (strPurpose ~~ " 


EROOM " ) 


strTag 


- "phone_ 


emergency" ; 


if {strPurpose == " 


MHEALTH") 


strTag 


= "phone_ 


_mental_health" 


if (strPurpose == " 


PRECE.RT" ) 


strTag 


= "phone_ 


precert"; 


if (strPurpose == " 


BENEFITS" ) 


strTag 


= "phone 


benefits " ; 


if (strPurpose == " 


OTHER") 


strTag 


= "phone 


other" ; 


addXmlChild {strTag, 


getField ( rs_ 


_phone , 


"number" ) 


•c_str () ) ; 



r s_phone . MoveNext { ) ; 

} 

//goto next insurance record 
rslnsurance. MoveNext { ) ; 



streetl", getField ( rs_addr ess , " street 1 "). c_str ()) 

street 2", getField (rs_address, "street2") .c_str () ) * 

city", getField ( rs_address, "city " ) . c__str ( ) ) ; 
state", getField { rs_address , "state" ). c_str ()) ; 
state_id", get Field ( rs_address , "state__id" ) . c_str * 

country", getField ( rs_address, " country" ). c_str ()) 

country_id", get Field ( rs_address , " coun tr y_id" ) . * 

zip", getField {rs_address, " zip" ) . c_str ( ) ) ; 

numbers . 



//close "row" tag 
closeXmlTag ( ) ; 

) 
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//close "insurance" tag 
closeXmlTag ( ) ; 

} 



catch (bool f Error) 

f Error ; 

a tch (_com_er ror & e) 

m_emLast . setError { e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : getUser Insurance ] " ) ; 
fSuccess = false; 



return fSuccess; 

} 
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^include "xc_getCommands . h" 

^include "rs_hcp.h" 
^include "rs_address.h" 
#include "rs_name.h" 
^include "r s_per son . h" 

///////////////////////////////////////////////////////////////// 

CXC_IMPLEMENT_FACTORY (Cxc_getUser Physicians ) 

bool Cxc_getUser Physicians : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Crs_name rs_name; 
Crs_address rs_address; 
Crs_person rs_person; 
Crs_encounter r s_encounter ; 
Crs_hcp_of f ice r s_hcp_of f ice ; 
Cr s_hcp_specialty rs_hcp_specialty ; 
Cr s_en count er_hcp r s_en count er_hcp; 



string strCpild; 

long lCpild, JLHcpId, lRedd, lActiveSw; 
m_pdocResul ts = NULL; 

if (getParm { "cpi_id", strCpild) == false) 
{ 

m_emLast . setError ( "\"cpi_id\ M is a required parameter.") 
t h r o w fSuccess = false; 

} 

//chee): if cpi_id is null. 

if (strCpild . empty ( ) ) 

{ 

m_emLast . setError ( "\"cpi_id\" is NULL."); 
throw fSuccess - false; 

} 

lCpild = atol(strCpiId.c_str{) ) ; 

CSdoConnect ion * pconn = m_pcoClient->getConnection { ) ; 
m_pdocResults - new CXmlDocument { "<getUserPhysicians/>" ) ; 



/* Get all the user physicians id's * / 

rs_en count er_hcp . setActiveCommand ( "cmdFetchUser Physician Ids " ) ; 
r s_encounter_hcp . setParm ( "cpi_id" , _variant_t (lCpild)); 
if ((fSuccess = pconn->execute (rs_encounter_hcp) ) == false) 
{ 

m_emLast . setError (pconn~>getLas tError ( ) ) ; 
throw fSuccess = false; 

} 

//create "physicians" tag to encapsulate all physician record 
openXmlTag ("physicians" , XML_TYPE_GROUP) ; 

while ( ! rs_encounter_hcp. isEOF ( ) && ! r s_encoun ter_hcp . isBOF { ) ) 
{ 

//get. hep id 

string strHcpId, strRedd, strActiveSw; 
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r s_encounter_hcp . get Field ( "hcp_id" , strHcpId) ; 

r s_encounter__hcp . getField ( "rec_id" , strRecId) ; 

rs_encounter_hcp. getField ( "active_sw" , strActiveSw) ; 

lHcpId - atol (strHcpId. c_str () ) ; 

IRecId = atol { strRecId . c_str {)) ; 

lActiveSw = atol (strActiveSw . c__str ( ) ) ; 

if (UHcpId II IlRecId) continue; 

//create "row" tag to encapsulate each physician record 
openXmlTag { "row" , XML_TYPE_ROW) ; 

//skip these columns from the results and add manually to avoid multiples, 
string strColumnsToSkip = "cpi_id , rec_id, active_sw" ; 
addXmlChild ( "physician_id" , IHcpId); 
addXmlChild < "rec_id", IRecId) ; 
addXmlChild ( "active_sw" , lActiveSw) ; 

//fetch hep specialty information. 
rs_hcp_specialty . se tAct iveCommand ( r, cmdFetch2" ) ; 
rs_hcp_specialty . setParm ( "cpi_id M , __variant_t (IHcpId) ) ; 
if ( (fSuccess = pconn->execute ( rs_hcp_special ty ) ) false) 
{ 

m_emLast . setEr ror (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 

r s_hcp_specialty . toXml ( + m_pdocResul t s , true, strColumnsToSkip . c_str ( ) ) ; 

//fetch hep office information. 

//[For now, only one office information will be available] 

rs_hcp_of f ice . se tAct iveCommand { "cmdFe tchAl II nf o" ) ; 

r s_hcp_of f ice . setParm ( "cpi_id" , _variant_t (IHcpId)); 

if ((fSuccess = pconn->execute ( rs_hcp_of f ice) ) == false) 

{ 

m__emLast .setError(pconn->getLastError() ) ; 
throw fSuccess = false; 

} 

rs_hcp_of f ice . toXml ( *m_pdocResul ts , true, strColumnsToSkip . c_s tr ( ) ) ; 



/ / f etc h h c p n a m e 

r s_name . se tAct iveCommand ( "cmd Fetch " ) ; 

rs_name . setParm ( "cpi_id" , _variant_t (IHcpId)); 

rs_name . setParm ( "active_sw" , _variant_t ("1")); 

if ((fSuccess = pconn->execute ( r s_name ) ) ~- false) 

{ 

m_emLast . set Err or ( pconn->ge tLas tErr or ( ) ) ; 
throw fSuccess = false; 

} 

r s_name . toXml ( *m_pdocResul ts , true , strColumnsToSkip . c_str ( } ) ; 

//fetch hep email address 

rs_address . se tAct iveCommand ( "cmdFe tch Email " ) ; 
rs_address . setParm ( "cpi_id" , __variant_t (IHcpId)); 
rs_address . setParm ( "purpose" , _variant_t ("Email")); 
if ((fSuccess = pconn->execute (rs_address) ) == false) 
{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

) 

rs_address . toXml ( *m_pdocResul t s , true, strColumnsToSkip . c_str ( ) ) ; 

//fetch hep personal into 

rs_person . se tAct iveCommand ( "cmd Fetch" ) ; 

rs_person . setParm ( "cpi_id" , _variant_t (IHcpId)); 

if ((fSuccess = pconn->execute (rs_person) ) false) 

{ 

m_emLast . setError ( pconn->getLa stEr ror ( ) ) ; 
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throw f Sue cess = false; 

} 

rs_person . toXml ( *m_pdocResul t s , true, s trColumnsToSkip . c_str { ) ) ; 

//process next record 
rs_encounter_hcp . MoveNext ( ) ; 

//close "row" tag 
closeXmlTag ( ) ; 

} 

//close "physician'* ta-g 
closeXmlTag { ) ; 



catch(bool fError) 

f Error ; 

catch(_com_error & e) 

m_emLast . setEr ror { e ) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError { "Unknown exception raised. [ Command : getUser Physicians ]") ; 
fSuccess = false; 



if (! fSuccess && m_pdocResul t s ) delete m_pdocResul t s ; 
return fSuccess; 
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# include "xc_get Commands . h" 

# include "r s_user_pref erence . h M 

///////////////////////////////////////////////////////////////// 

CXC_IMPLEMENT_ FACTORY (Cxc_ge tUser Pre f erence ) 

bool Cxc_getUser Preference : ; execCommand { ) 
{ 

bool fSuccess = true; 

try 
{ 

Crs_user_pref erence rsUserPreference; 
string strCpild; 



//get opioid 

if (getParm { "cpi_id" , strCpild) == false) 
{ 

m_emLast . setError ( " \"cpi_id\ " is a required parameter."); 
threw fSuccess = false; 

} 

//check if cpi__id is null. 

if { strCpild . empty {) ) 

{ 

m_emLast . setError ( "\"cpi_id\" is NULL."); 
throw fSuccess = false; 

} 

long lCpild = a tol ( strCpild . c_str ()) ; 

CSdoConnection * pconn = m_pcoClient->getConnect ion { ) ; 

rsUser Preference. setAct ive Command ( "cmd Fetch " ) ; 

rsUser Preference . setParm ( "cpi_id" , _variant__t (lCpild)); 

if (pconn~>execute (rsUserPreference) == false) 

{ 

m_emLast . setError (pconn->getLastEr ror ( ) ) ; 
throw fSuccess = false; 

} 

//.return the XML result. 

m_pdocResults = new CXmlDocument ( "<getUser Pref erence/>" ) ; 
fSuccess = rsUser Pref erence . toXml ( *m_pdocResul ts ) ; 



catch (bool f Error) 

f Err or ; 

catch (_com_error & e) 

m__emLast . setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unknown exception raised. [Command : getUser Pref erence J") ; 
fSuccess = false; 



return fSuccess; 

} 
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#include "xc_GetCommands . h" 
# include "r s_blood_pressure . h" 

//////////////////////////// ///////////////////////////////////// 
CXC_IMPLEMENT_ FACTORY { Cxc_ge tWe igh tReadi ngs ) 

bool Cxc__getWeightReadings : : execCommand { ) 
{ 

bool fSuccess - true; 

try 
. { 

Crs_blood_pressure rsBP; 

string strCpild, strS tart Date , strEndDate; 
CSdoConnection + pconn = m_pcoClient->getConnect ion ( ) ; 

//get cpi_id 

if (getParm ( "cpi_id" , strCpild) == false) 
{ 

m_emLast . setError (" \ "cpi_id\" is a required parameter."); 
throw fSuccess - false; 

} 

//optional parameters. 
getParm("start_dt", strStar t Da te) ; 
getParm("end_dt", strEndDate) ; 

//checi: if opioid is null. 

if ( strCpild . empty () ) 

{ 

m_emLast . setError {" \ "cpi_id\ " is NULL."); 
throw fSuccess = false ; 

} 

long lCpild = a tol ( s t rCpi Id . c_s t r ( ) ) ; 

//if start_dt is not provided, then fetch all pulse records. 

if ( strStartDate . empty {) ) 

( 

//fetch all pulse records. 

rsBP . setActiveCommand { "cmdFetchWeightAll " ) ; 
rsBP . setParm ( "cpi_id" , _variant_t (lCpild)); 

} 

else 
< 

COleDateTime oledate; 
DATE dtStartDate; 

/ /parse startjJt. . 

oledate . Parse Da teTime ( strStartDate . c_str ( ) ) ; 
dtStartDate = (DATE) oledate; 
if (dtStartDate == NULL) 
{ 

m_emLas t . setError (" \ " star t_dt \ " is Invalid."); 
throw fSuccess = false; 

} 

if ( strEndDate . empty () ) 
{ 

rsBP . setActiveCommand ( "cmdFe t chWeigh tByStar t Da te" ) ; 

rsBP . set Parm ( "cpi_id" , __variant_t (lCpild)); 

rsBP . set Parm ( "start_dt " , _variant_t (dtStartDate)); 
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else 
{ 

DATE dtEndDate; 

//parse end_dt. 

oledate . Parse Da teTime {strEndDate . c_str { ) ) ; 
dtEndDate = (DATE) oledate; 
if (dtEndDate « NULL) 
{ 

m_emLast . setError ( " \"end_dt V is Invalid.") ; 
throw f Success = false; 

) 

//get records from start; dt tc end dt 

rsBP . setActiveCommand ( " cmd Fetch Weight By Da teRange" ) ; 

rsBP . setParm { "cpi_id" , _variant_t (iCpild)); 

rsBP . setParm ( "start_dt" , _variant_t (dtStartDate) ) ; 

rsBP.setParm("end_dt", _variant_t (dtEndDate) ) ; 

} 



if (pconn->execute(rsBP) ~- false) 

m_emLast .setError (pconn->getLas t Err or ( ) ) ; 
throw fSuccess = false; 

else 

m_pdocResults = new CXml Documen t ( "<getWeightReadings /> " ) ; 
fSuccess = r sBP . toXml ( *m_pdocResul ts ) ; 



catch (bool fError) 

f Error ; 

catch (_com_error & e) 

m_emLas t .setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast . setError ( "Unkown exception raised. [Command : getWeightReadings ]") ; 
fSuccess = false; 



return fSuccess; 

} 
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# include " xc_Inser t Commands . h" 
liinclude " r s_code_cache . h " 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_insCodeCategory ) 



bool Cxc_insCodeCa tegory : : execCommand { ) 



//Instatiate the sdc command. 
Crs_code_ca t rsObject ; 

//set active command 

r sOb j ect . se t Ac tive Command ( "cmdlnsert M ) ; 

//update the db. 

booi fSuccess = executeUpdate ( r sOb j ect , false); 
return fSuccess; 
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It include M xc__Inser t Commands .h" 
#include "r s_cpi_master . h" 

////////////////////////////I//////////////////////////////////// 
CXC_IM PL EMENT_ FACTORY (Cxc_insCpiMas ter ) 



bool Cxc_insCpiMas ter : : execCommand ( ) 



//Instatiate the sdo command, 
Crs_cpi_master rsObject; 

//set active ccmxana 

rsObj ect . setActiveCommand { "cmdlnsert Empty Record " ) ; 

//update the db. 

bool fSuccess = executeUpdate {rsObject ) ; 
return fSuccess; 
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If include "xc__InsertCommands . h" 

^include "r s_cpi_user . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY { Cxc_in sCpiUser ) 



bcol Cxc_insCpiUser : : execCommand ( ) 



//Instatiate the sdo command. 
Crs_cpi_user rsObject; 

//set active command 

r sOb j ect . se tAct iveCommand { "cmdlnsert " ) ; 

//update the db. 

booi fSuccess = executeUpdate ( r sOb j ect ) ; 
return fSuccess; 
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^include "xc_Inser tCommands . h" 

#include " r s_diagnosis . h" 

////////// ///////V ///// ////////////////////////////////// //////// 

CXC_IMPLEMENT_ FACTORY {Cxc_insDiagnosis ) 



bool Cxc_insDiagnosis : : execCommand { ) 
{ 

//I'nstatiate the sdo command. 
Crs_diagnosis rsObject; 



rsObj ect . setActiveCommand ( "cmdlnsert" ) ; 

//update the db. 

bool fSuccess = executeUpdate ( rsObject ) ; 
return fSuccess; 

} 
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Jfinclude "xc^Inser tCornmands . h" 

^include " r s_encounter . h" 

///////////////////////////////////////////////////////////////// 
CXC IMPLEMENT FACTORY ( Cxc insEncounter ) 



bool Cxc__insEncounter : : execCommand ( ) 



//Instatiate the sdo command, 
Crs_encounter rsObject; 

//set active command 

rsObject . setActiveCommand ( "cradlnsert Encounter " ) ; 

//update the db. 

bool f Success = executeUpda te ( r sOb j ect ) ; 
return fSuccess; 
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# include "xc_Insert Commands . h" 

^include " rs_encoun ter . h" 

////////////////////////////// /////////////////////////////////// 
CXC_ I MPLEMENT_ FACTORY (Cxc_insEncounterLog ) 



bool Cxc_insEncounterLog : : execCommand ( ) 



//Xnstatiate the sdc command. 
Cr s_encounter rsObject; 

//set: active command 

rsOb j ect . se tAct iveCommand { "cmdlnsert Encounter Log" ) ; 

//update the db. 

bool fSuccess = executeUpda t e (r sOb j ect ) ; 
return fSuccess; 
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if include "xc_Inser tCommands . h" 
^include " r s_encoun ter . h " 

/\// ////////////////. ■'////// //////////// /////////////// / /////////// 
CXC_IMPLEM EN T_ FACTORY (Cxc_insEncounterMap ) 



tool Cxc_insEncounterMap: : execComniand { ) 



//Instatiate the sdo command. 
Cr s_encounter_map rsObject; 

//set active comma nd 

rsObject . se tAct iveCommand { "cmdlnsert" ) ; 

//update the db . 

bool fSuccess - executeUpdate (rsOb j ect ) ; 



return fSuccess; 

} 
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Sifndef xc_inser tCommands_h 
tfdefine xc_inser tCommands_h 

#include "stdafx.h" 

If include "xcLCBroker . h" 

////////////////////////\////////////////\V/VV////V///////^\////V //////// /////////// 

// Declaration or all the XML insert Commands Classes. 

// 

// Macro derives the class from CxcLCBrokerModiry 
// 

i i / 1 n 1 1 1 1 1 i n f i n i n n n n 1 1 n ! 1 1 1 n 1 1 1 1 1 n i n n n i n 1 1 1 n 1 1 1 u 1 1 1 1 1 1 1 1 1 a 1 1 n i f 1 1 

DECLARE_XML_INSERTCMD_CLASS { Cxc_insCodeCa t egor y ) 
DECLARE J(ML_INSERTCMD_CLASS ( Cxc__insCpiMa s ter ) 
DECLARE_XML_INSERTCMD_CLASS ( Cxc_insCpiUser ) 
DECLARE_XML_INSERTCMD_CLASS (Cxc_insDiagnosis ) 
DECLARE_XML_INSERTCMD_CLASS ( Cxc_insEncount erLog ) 
DECLARE_XML_INSERTCMD_CLASS ( Cx c_insEncount erMap ) 
DECLARE_XML__INSERTCMD_CLASS (Cxc_insExternalCode) 
DECLARE_XML_INSERTCMD_CLASS (CxcjLns Interna ICode) 
DECLARE_XML_INSERTCMD_CLASS (Cxc_insSysOrg) 
DECLARE_XML_INSERTCMD_CLASS { Cx c_insEncoun t er ) 
DECLARE_XML_INSERTCMD_CLASS (Cxc_insMassMailing) 



#endif 
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If include M xc_Insert Commands . h" 
# include "rs_code_cache . h" 

////////// //VV•///^^//V//V///////////^/v///////////V//^v////// ////// 

CXC IMPLEMENT FACTORY (Cxc insExternalCode ) 



bcol Cxc insExternalCode :: execCommand ( ) 



/ /i'nstatiate the sdo command. 
Cr s_code_extern rsObject; 

//set active command 

rsObject . se tAct iveCommand ( "cmdlnsert " ) ; 

//update the clb. 

bool fSuccess = executeUpdate ( r sOb j ect ) ; 
return fSuccess; 
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It include "xc_Insert Commands . h" 
if include " r s_code_cache . h" 

///////////////////// //////////////////////////////////////////// 
CXC I MPLEMENT_ FACTORY (Cxc__insInternalCode ) 



bool Cxc insInternalCode :: execCommand ( ) 



//Instatiate the sdo command. 
Cr s_code_intern rsObject; 

r sOb j ect . set Active Command ( "cmdlnser t " ) ; 

//update the db. 

bool fSuccess = execut eUpdate ( r sOb j ect , false); 



return fSuccess; 

} 
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8 include "xc_Inser tCommands . h" 

% include " r s_s y s_or g_f aci 1 i t y . h" 

///////// / / //////////// ////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_insSysOrg ) 



bcol Cxc_insSysOrg : : execCommand ( ) 
{ 

//Instatiat*? the sdo command. 
Crs_sys_org rsOb ject ; 

//sec active command 

rs Ob ject . set Act i veCommand ( "cmdlnsert " ) ; 

/ /up dace the db . 

booi f Success = execu teUpdate ( r sOb j ect } ; 



return fSuccess; 

} 
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^include M xc_loginUser . h" 
^include " Encryptor . h" 

#include 11 rs_cpi_user . h" 
#include "rs_name.h" 
#include " rs_phone . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY(Cxc_loginUser) 

bool Cxc_loginUser : : exec Command ( ) 

{ 

bool f Success ~ false ; 
try 

{ 

Crs_cpi_user rsCpiUser; 

Crs_name rsName; 

Crs_phone rsPhone; 

string strUser; 

string strParmPassword; 

if (getParm( n user_login" , strUser) == false) 

{ 

m_emLast . setError ( "\ "user_login\ " is a required parameter."); 
throw fSuccess = false; 

} 

if (getParm ( "password" , strParmPassword) == false) 

{ 

m_emLast . setError ( " \ "password\ 11 is a required parameter"); 
throw fSuccess = false; 

} 

//get db connection 

CSdoConnection * pconn = m_pcoClient - >getConnection ( ) ; 

//////////////////////////////////////////////////////////////// 
// Fetch the user information. 

//////////////////////////////////////////////////////////////// 
rsCpiUser . setAct iveCommand ( "cmdFetchUser " ) ; 

rsCpiUser . setParameter ( "user_login" , _variant_t (strUser . c_str ( ) ) ) ; 
if (pconn- >execute (rsCpiUser ) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

if ( rsCpiUser . isEmpty () ) 

{ 

m_emLast << "The user [" << strUser << "3 does not exist."; 
throw fSuccess = false; 

} 



// password check 
string strEncryptedPassword; 
string strPassword, strPwdReminder ; 
string strCpild; 

string strLastName, strMiddleName, strFirstName ; 
string strEf f ectiveDate , strExpirationDate ; 
long lSecurityMask ; 

//extract the usefull fields from the result 

rsCpiUser . get Fie Id ( "cpi_id" , strCpild) ; 

rsCpiUser . get Fie Id ( "password" , strEncryptedPassword) ; 
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rsCpiUser . getField ( "password_reminder " , strPwdReminder ) ; 
rsCpiUser .getField( » effect ive_dt" , strEf f ectiveDate ) ; 
rsCpiUser . getField ( "expirationjit " , strExpirationDate ) ; 
lSecurityMask = (long) rsCpiUser . getField (" security_mask" ) ; 



//check if user is valid. 
CEncryptor encryptor ; 

encryptor . Decrypt (strEncryptedPassword . c_str ( ) , NULL , strPassword) ; 
if ( strPassword . compare ( strParmPassword) != 0) 

{ 

m_emLast . setError ( " Invalid password . 11 ) ; 
throw f Success = false; 

} 



//////////////////////////////////////////////////////////////// 
//User is valid, so fetch some more user data 

//////////////////////////////////////////////////////////////// 
DATE dtAccessDate; 

dtAccessDate = (DATE) COleDateTime : : GetCurrentTime ( ) ; 
long lAuditld = getAudit Id ( ) ; 

//update the user accessjjf. 
rsCpiUser . clearParms ( ) ; 
rsCpiUser . setRecordSetToNull ( ) ; 
rsCpiUser . setAct iveCommand ( "cmdUpdate 11 ) ; 

rsCpiUser . setParameter ( "cpi_id" , _variant_t (atol ( strCpild . c_str ()))); 
rsCpiUser . setParameter ( "access_dt " , _variant_t (dtAccessDate) ) ; 
rsCpiUser . setParameter ( 11 access_count_sw" , _variant_t ( " 1 " ) ) ; 
rsCpiUser . setParameter ( "audit_id" , _variant_t ( lAuditld) ) ; 
if ((fSuccess = pconn->execute (rsCpiUser) ) = *> false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

//fetch user's name 

strLastName = »"; 

strMiddleName = » " ; 

strFirstName = ""; 

rsName . clearParms ( ) ; 

rsName . setRecordSetToNull ( ) ; 

rsName . set Act iveCommand ( " cmdFetch" ) ; 

rsName . setParameter { "cpi_id M , _variant_t (strCpild . c_str ( ) ) ) ; 
rsName . setParameter ( "active_sw" , _variant_t ( "1" ) ) ; 
if (pconn- >execute (rsName) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

if (! rsName . isEmpty () ) 

{ 

//get user name. 

rsName . getField ( "last_name" , strLastName) ; 
rsName . getField ( "middle_name 11 , strMiddleName) ; 
rsName. getField ("first__name" , strFirstName) ; 

} 

//fetch user's HOME phone number- 
string strPhone = " " ; 
rsPhone . clearParms ( ) ; 
rsPhone . setRecordSetToNull ( ) ; 
rsPhone . set Act iveCommand ( "cmdFetch" ) ; 

rsPhone . setParameter ( "cpi_id" , _variant_t ( strCpild . c_str ( ) ) ) ; 
rsPhone . setParameter ( "active_sw" , _variant_t ( "1" ) ) ; 
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rsPhone . setParameter ( "purpose " , _variant_t ( "Home " ) ) ; 
rsPhone . setParameter ( " line_type" , _variant_t ( "Voice" ) ) ; 
if (pconn->execute (rsPhone) == false) 

{ 

m_emLast . setError (pconn- >getLastError { ) ) ; 
throw fSuccess = false; 

} 

if (! rsPhone . isEmpty () ) 

{ 

//get user phone. 

rsPhone . getField ( "number" , strPhone) ; 

} 

//////////////////////////////////////////////////////////////// 
// Construct the result XML 

//////////////////////////////////////////////////////////////// 

string strValue; 
_variant_t vValue; 

m_pdocResults = new CXmlDocument ( " <loginUser/> " ) ; 
vValue = strCpild . c_str { ) ; 

m_pdocRe suits- >addChild ( "cpi_id" , vValue) ; 
vValue = strEf f ectiveDate . c_str ( ) ; 
m_pdocRe suits- >addChild { "effect ive_dt 11 , vValue) ; 
vValue = strExpirationDate . c_str ( ) ; 
m_pdocResults- >addChild { "expiration_dt " , vValue) ; 
vValue = strLastName . c_str ( ) ; 

m_pdocRe suits- >addChild ( " last_name" , vValue) ; 
vValue = strMiddleName . c_str { ) ; 

m_pdocResult s- >addChild { "middle_name " , vValue) ; 
vValue = strFirstName . c_str { ) ; 

m_pdocResults- >addChild ( "f irst_name" , Walue) ; 
vValue = strPhone . c_str {) ; 

m_pdocRe suits- >addChild { "home_phone " , vValue) ; 
vValue = strPwdReminder . c_str { ) ; 

m_pdocResult s - >addChild { "password_reminder " , vValue) ; 



CXmlElement elMasks ; 
CXmlElement elMask; 

m_pdocResults->createElement ( " security_masks " , NOVALUE, &elMasks) ; 
m_pdocRe suits- >addChild ( kelMasks) ; 

m_pdocResults->createElement ( "vip" , lSecurityMask & MASK_VIP ? "1" : "0" , fcelMask) * 

i 

elMasks . addChild ( fcelMask) ; 

m_pdocResults- >createElement ( "encounter " , lSecurityMask & MASK_ENCOUNTER ? "1" : \t 
"0" , &elMask) ; 

elMasks. addChild { kelMask) ; 

m_pdocResults->createElement ( "system" , lSecurityMask & MASK_SYSTEM ? "1" : "0" , & * 
elMask) ; 

elMasks . addChild {&elMask) ; 

m_pdocRe suits- >createElement ( "hep" , lSecurityMask & MASK_HCP ? "1" : "0" , &elMask) X 
elMasks. addChild ( &elMask) ; 
fSuccess = true; 

} 

catch (bool f Error) 

{ 

f Error ; 

} 

catch (_com_error & e) 

{ 
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m_emLast . setError (e) ; 
f Success = false; 

) 

catch (...) 

{ 

m_emLast . setError ( "Unkown exception raised. [Command : loginUser] ") ; 
fSuccess = false; 

} 

return fSuccess; 
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#ifndef xc_openDatabase_h 
#define xc_openDatabase_h 

class Cxc_openDatabase : public CxcLCBroker 

{ 

public : 

Cxc_openDatabase ( ) ; 
virtual bool execCommand ( ) ; 
CXC_DECLARE_FACTORY ( ) 

}; 

#endif 
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i\ i f ndef xc_other Commands_h 
If de f i ne x c_o t he r Comma nd s_h 

jiinclude "stdaf :•: . h" 

# include " xcLCBroker . h" 

//Specific Cessna nds Include 

8 include "xc_open Database . h" 
M include "xc_loginUser . h" 
# include "xc_execSear ch . h" 
$ include "xc crea teUser . h" 



///// / ///////////// ////////// //;//////\'//f ///////////////////////////////// /////// 

// Declaration of the XML Command Classes. 
// Macro derives the class from CxcLCE fokc r 

// //////////////// ////////// ////////// //////// ///////////////////////////////////// 
DECLARE J/ML_CMD_CLASS (Cxc_change Password) 
DECLARE XML UPDATECMD CLASS 4 (Cxc addlnsurance) 



ifendif 
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a include "xc__0 1 her Commands . h " 

f» include "r smaller gy . h" 

////////////// /////////// //////////////////////////////////////// 
C X C_ I M PL EMENT_ FACTORY ( Cxc_se t Al ler gy Inf o ) 



//////////////////////////////// ////////////////////////////////////// 

//Do parameter validation here 

boo.I Cxc_setAllergyInf o : : par seParameter s () 

{ 

string strData; 

///////////////////////////////////////// 
//coi_:ld should be provided. 

/////////////////////////////////// //////////////// /////////////// / 
strData = get ParameterValue ( "opioid" ) ; 
if (strData. empty () ) 
{ 

m_emLast . setEr ror ( " \ "cpi__id\" is a required parameter."); 
return false; 

} 

///////////////////// / ///////////////////////////// /////// ///////// 
//allergy name should be provided. 

/////// //"//■// /////// /// i/ ////////////////////////////////// / ///// / 

strData - ge tPar ameterValue ( "allergy_name" ) ; 

if (str Data . empty {) ) 

{ 

in_emLast . setError ( "\"allergy_name\" is a required parameter.") ; 

return false; 

} 



/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ./ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
//Ensure descr i pt i on always accomoanies a code_id 

//////////////// / ////////////////////////////////// //////////////// 

if (getPar ameterValue ( "allergy_name "). empty ( ) && ! getPar ameterValue ( "aller gy_id" ) . 

empty ( ) ) 

{ 

m__emLast . setEr ror { " \ "allergy_name\ " is not present. Codes should be provided with / 
the code id . " ) ; 

return false; 

} 

if (getParameterValue ( "type" ). empty ( ) ! getParameterValue ( "type_id" ). empty () ) 

{ 

m_emLast . setEr ror (" \ " type\ " is not present. Codes should be provided with the code/ 
id. ") ; 

r e t u r n false ; 

} 

if (getParameterValue { "severity") .empty ( ) ! getPar ameterVa lue ( "sever ity_id" ). empty 

( ) ) 

{ 

m_emLast . setEr ror (" \ "sever ity\ " is not present. Codes should be provided with the ✓ 
code id . " ) ; 

return false; 

} 

r e t u r n 1 1 u e ; 

} 
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//////////// ////// ///// //// ////.'/ //////// / //// / //////////// /////////// 
// Execute the command- 

bool Cxc__setAllergyInf o : : execCommand ( ) 
{ 

//Instantiate the 5 do cw.aiid. 
Crs__allergy rs__allergy; 

r s_aller gy . set Active Command { "cmdUpdate" ) ; 

//update t: h e d b . 

bool fSuccess - executeUpdat e ( r s_aller gy } ; 
return fSuccess; 



//////////////////////////////////// //////////.'/////////////////////// 
// Do Data processing here. 

// [called fiofii the execute method foi each rev of data] 

// - creates i. ns u x an ce company, subscriber: acd 0 si L • cipan t insurance records. 

///////////////:///•////////////////// / / ' / / / / / / / / / / / //////////// / / / / / / 

bool Cxc setAl lergylnf o : : pi :»ce^c Da t a (; 

bool f Success = true; 
CSdcConnecc ion * peonn - Nl'LL ; 



try 



Crs_pat i ent rs__pat 3 ent ; 

Crs__allexuy r 11-5 1 ay ; 

string s cr Alier gyH*mfc , strType, s t rSo v - : i t y, strReact icn, s tr Iden ti t yDa te; 
long ICpild, IRecIti, LA-rtiveSw, iAllr^ylci, jTypeld, ISeverityld; 

//get the- par a meter s 

lCpild - a tel. ; ye t Fa r amete.r Val ee ( "cpi_ c" ,» . c_:> tx ( ) ) ; 
IRecId - at ol i get FarameterValue «; "rec .i d" ; . c str ( ■ ; ; 
lActi veSw - a col ; ge t Far -unecer Va lue t " *c 5 . : ve_:?w" } . c_s tx. i } J ; 
strAllergyWaine ™ get Pararnet erValue M aJ lei gy name"!; 
lAliergyld - at 0.1. i getFaxametex Value ( "al IV; rgy_id" ) . cjtr { J ) ; 
strType get ParameterValue 1 "t ype n ) ; 

lTypeld - a to 1 (ge tP=tr<tmet er Va 1 i;e ( " type id" } . ;_sir { } ) ; 
str Severity " get Pa t a me t erValue \ "sever 1 ty " ) ; 

1 Sever i ty Id = atol f get Pa rameterVa rue ? " seven ty_ id " } . c_ s tr { } ) ; 
strident if yDa te = get Parameter Value 1 " Idem if y_dt" ) ; 
st rReaet ion « get Far ameterValue i "react a on" ; ; 

//convert date in date time object. 
DATE dt Tdennaf yDate; 
COle Da teTime oledate ; 

oledd fce . !? ar aeDa teTime { s t r Idee t i £ y Da t - . c_s tr ; 5 } ; 
dtldentif yDate - (DATE) oledate; 



if i ! it Identify Date) 
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( 

//ret. am error if date is made compu J. sary . 

} 

//•get db connection. 

pconn - n\_pcoCl ient->get.Connection ( } ; 

//begin transaction 
pconn- >begin?r an s ( ) ; 

/ /get rs e w audit id 

long lAuditld = ger.Audit Id ( / ; 

if i ! lAuditld) 

1 

m_emLast. setErroi i "Unexpected Condition !!! Cannot get new Audit ID !!!"}; 
throw f Success - raise; 

} 



////////////////////////////////////////////////////// 
//insert /update allergy table 

////// ///////////////y// ////////////// //////////////// 

r smaller gy • clear P arms i ) ; 

rs_a I.) ergy . set £ e c o r d Set T o H u 1 .!.(}; 

rs aiior oy . set Ac t iveCornma nd f "cmd Update" } ; 

r smaller gy . setParameter t "opi o id" , _ va r iant__t (ICpild)) ; 

rs_al lergy . set Pa rameter i"ac L ive^sw" , _va .;. iant_t i lActiveSw j ) ; 

rs a 1 1 e r g y .setParameter ( " a 1 1 e x g y p. a me " , variant t • str Ai lergyName . c str ( ) ) 

rs_aliergy .set Parameter ( " a 2 lei g y_ id" , _va ri an t_t { .1 Allergy Id } } ; 

rs al lexcy . set Pa c ame ter ( M t ype M , variant t (str Type . c str{))5; 

r s_a.t!erQy . setParameter ("type_id" / _variant_t (ITypeld) ) ; 

rs. a Ilergy . set Fararae ter ' "sever i ty" , variant t (strSe verity . c serf] } ) ; 

rs_ai! erqy . set Pa r ame v; er ( "sever i ty_id" , _variant_t ( I Sever it y Id) ) ; 

rs a i lergy • set Par ame ten i " react ion " , variant_t (str Re action . c str{))}; 

rs_a.i ietgy . set Par am&t er ( "aunj.t__id M , _vari ant_t ( 1 Audi, rid) ) ; 

it (dt Identi fyDs te > rs aJ lergy . setParameter { "identify dt M , variant t 
(dtldentif yDate) ) ; 

//updates record it rec_id provided, 
if (IPecId) 

rs_al lergy . set Pa i amet e i ( "rec id" , _va riant _t (IRecId) } ; 

if ( i i Success = pconn->execute ( l s_aliergy) ) == false} 
{ 

m^en-iLas t . set Err or {pconn - >ge t Las c Error ( '] } ; 
throw f Success * false; 



catch fbool f Err or} 

{ 

f Error ; 

} 

oar oh (_corn_er ror l e) 
I 

m_emLas t . set Err or •■ e • ; 
fSuccess « raise; 

} 

catch I ... ) 
i 

m_ emLast . set Ex ror ( "Unknown exception raised . [ Comma nd : set Allergy Info j ,f } ; 
i Success ~ false; 
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//commit or Roll back the transaction. 

it (pconn) 

{ 

if (f Success) pconn->commi cTians { ) ; 
else pconn- > rollback? rans ( ) ; 

} 

return r'Success; 
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# include " xc_Ot her Commands . h" 
#include " rs_blood_pressure . h" 



////////////////////// ///////////////////////////////////// ////// 
CXC_IMPLEMENT_FACTORY (Cxc_setBloodPressure ) 

bool Cxc_setBloodPressure : : execCommand ( ) 

{ 

bool f Success = true; 
CSdoConnection * pconn = NULL; 

try 

{ 

Crs_blood_pressure rsBP; 
string strCpild, strRedd; 

string strDay, strMonth, strYear, strTime; 

string strSystolicBP, strDias tolicBP , strPulse, strWeight, strWeightUnit ; 



pconn = m_pcoClient->getConnection{ ) ; 
pconn- >beginTrans ( ) ; 

//extract parameters 

if (getParm ( " cpi_id" , strCpild) == false) 

m_emLast . setError ( " \ "cpi_id\ 11 is a required parameter."); 
throw fSuccess = false; 

if (getParm( "month" , strMonth) == false) 

m_emLast . setError (" \ "month\ " is a required parameter."); 
throw fSuccess = false; 

if (getParm( "day" , strDay) == false) 

m_emLast . setError ( "\ "day\ " is a required parameter."); 
throw fSuccess = false; 

if (getParm( "year " , strYear) =- false) 

m_emLast . setError ( " \ "year \ " is a required parameter."); 
throw fSuccess = false; 

if (getParm( "time" , strTime) == false) 

m_emLast . setError (" \ "time\ " is a required parameter."); 
throw fSuccess = false; 

if (getParm( "systolic_bp" , strSystolicBP) == false) 

m_emLast . setError ( "\ " systolic_bp\ " is a required parameter."); 
throw fSuccess = false; 

if (getParm{ "diastolic_bp" , strDiastolicBP) == false) 

m_emLast . setError ( " \ "diastolic_bp\ " is a required parameter."); 
throw fSuccess = false; 

if (getParm( "pulse" , strPulse) == false) 

m_emLast . setError ( "\ "pulse\ " is a required parameter."); 
throw fSuccess = false; 
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} " * 

if (getParm( "weight " , strWeight) == false) 

{ 

m_emLast . setError ( "\ "weight\ " is a required parameter") ; 
throw f Success = false; 

} 

//optional parameters. 

getParm( "rec_id" , strRecId); 

getParm ( " weight_unit 11 , strWeightUnit ) ; 

//default values for optional parameters. 

if (strWeightUnit . empty () ) strWeightUnit = "Pounds"; 

if (strTime . empty () ) strTime = ""; 



//check if cpi_id is null. 

if (strCpild . empty () ) 

{ 

m_emLast. setError ("\"cpi_id\" is NULL."); 
throw f Success = false; 

} 

//form the date. 
COleDateTime oledate; 
DATE dt; 

string strDate = strMonth + "/" + strDay + "/" + strYear + 11 " + strTime; 
oledate . ParseDateTime (strDate . c_str ( ) ) ; 
dt = (DATE) oledate; 

//check if date is null. 

if (dt == NULL) 

{ 

m_emLast . setError ( "\ "Month/Day/Year/Time\ " is Invalid or NULL . " ) ; 
throw fSuccess = false; 

} 



//set the command & parameters 

rsBP . setActiveCommand ( "cmdSetHealthData " ) ; 

rsBP . setParameter ( "cpi_id" , _variant_t (strCpild . c_str ( ) ) ) ; 

rsBP . setParameter ( " systolic_bp " , _variant_t ( strSystolicBP . c_str ( ) ) ) ; 

rsBP . setParameter ( "diastolic_bp" , _variant_t ( strDiastolicBP . c_str ( ) ) ) 

rsBP . setParameter ( "pulse" , _variant_t (strPulse . c_str ( ) ) ) ; 

rsBP . setParameter ( "weight " , _variant_t (strWeight . c_str ( ) ) ) ; 

rsBP . setParameter ( " weight_unit " , _variant_t (strWeightUnit . c_str ( ) ) ) ; 

rsBP . setParameter ( "reading_dt " , _variant_t (dt ) ) ; 

rsBP . setParameter ( "audit_id" , _variant_t (getAuditld ( ) ) ) ; 

if (! strRecId . empty () ) 

rsBP. setParameter { "rec_id" , _variant_t ( strRecId . c_str ( ) ) ) ; 

if (pconn- >execute (rsBP) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

} 

catch (bool f Error) 

{ 

f Error ; 

} 

catch (_com_error & e) 

{ 

m_emLast . setError (e) ; 



C:\Documents and Settings\billyhe\My . . . LCServices\LCBroker\xc_setBloodPressure . cpp 3 

fSuccess = false; 

} 

catch (...) 

{ 

m_emLast . setError ( "Unkown exception raised. [Command : setBloodPressure] ") ; 
fSuccess = false; 

> 

//commit or Roll back the transaction, 
if (pconn) 

{ 

if (fSuccess) pconn- >commitTrans () ; 
else pconn- >rollbackTrans () ; 

} 

return fSuccess; 

} 
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#include " xc_Ot her Commands . h" 
*#include " rs_cholesterol . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_setCholesterolReadings) 

bool Cxc_setCholesterolReadings : : execCommand ( ) 

{ 

bool f Success = true; 
CSdoConnection * pconn = NULL; 
try 

{ 

Crs_cholesterol rsCholesterol ; 

string strCpild, strRecId; 

string strDay, strMonth, strYear, strTime; 

string strTotalCholesterol , strLdlCholesterol , strHdlCholesterol ; 

pconn = m_pcoClient->getConnection ( ) ; 

//extract parameters 
m_emLast . clear ( ) ; 

if (getParm( "cpi_id" , strCpild) == false) 

{ 

m_emLast << 11 \ " cpi_id\ " is a required parameter . \r\n" ; 
fSuccess = false; 

> 

if (getParm( "month" , strMonth) == false) 

{ 

m_emLast << "\"month\" is a required parameter . \n\r " ; 
fSuccess = false; 

} 

if (getParm( "day" , strDay) == false) 

{ 

m_emLast << "\"day\" is a required parameter . \r\n" ; 
fSuccess = false; 

} 

if (getParm( "year 11 , strYear) == false) 

{ 

m_emLast << "\"year\" is a required parameter . \r\n" ; 
fSuccess = false; 

} 

if (getParm( "time" , strTime) == false) 

{ 

m_emLast << "\"time\" is a required parameter . \r\n" ; 
fSuccess - false; 

} 

if (getParm( " total_cholesterol " , strTotalCholesterol) == false) 

{ 

m_emLast << " \ "cholesterol\ " is a required parameter . \r\n" ; 
fSuccess = false; 

} 

getParm( " ldl_cholesterol " , strLdlCholesterol) ; 
getParm( "hdl_cholesterol " , strHdlCholesterol) ; 



//optional parameters. 
getParm ( "rec_id" , strRecId) ; 
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//form the date. 
COleDateTime odtReading; 
DATE dateReading; 

string strDate = strMonth + "/" + strDay + "/" + strYear + » " + strTime; 
odtReading . ParseDateTime (strDate . c_str ( ) ) ; 
dateReading = (DATE) odtReading; 

//check if date is null, 
if (dateReading == NULL) 
{ 

m_emLast << " \ "Month/Day/Year/Time \ " is Invalid or NULL . \r\n" ; 
fSuccess = false; 

} 

if (IfSuccess) 

throw fSuccess; 

//set the command b parameters 

rsCholesterol . set Active Command ( "cmdSetCholesterol " ) ; 

rsCholesterol . set Parameter ( "cpi_id" , _variant_t (strCpild . c_str ( ) ) ) ; 

if (strRecId. size ( ) ) 

rsCholesterol . set Parameter ( "rec_id , » , _variant_t (strRecId . c_str { ) ) ) ; 

rsCholesterol . setParameter ( " total_cholesterol " , _variant_t (atol ^ 
(strTotalCholesterol . c_str ()))); 

rsCholesterol . setParameter ( " ldl_chole sterol " , _variant_t (atol ( strLdlChole sterol . * 
c_str ()))); 

rsCholesterol . setParameter ( "hdl_cholesterol 11 , _variant_t (atol ( strHdlCholesterol . 
c_str ()))); 

rsCholesterol . setParameter ( "reading_dt 11 , _variant_t (dateReading) ) ; 
rsCholesterol . setParameter ( "audit_id" , _variant_t (getAuditld ( ) ) ) ; 

if (pconn->execute (rsCholesterol) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 



catch(bool fError) 

f Error ; 

catch (_com_error & e) 

m_emLast . setError (e) ; 
fSuccess = false; 

catch (...) 

m_emLast .setError ( "Unkown exception raised. [Command : setCholesterol] " ) ; 
fSuccess = false ; 



return fSuccess; 

} 
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#ifndef xc_setCommands_h 
#define xc_setCommands_h 

#include "stdafx.h" 
#include "xcLCBroker . h" 

//Specific Commands Include 



////////////////////////////////////////////////////////////////////////////////// 
// 

// Declaration of the XML Command Classes, 
// 

// Macro derives the class from CxcLCBroker 
// 

/////////////////////////////////////////////////////////////////////////////////// 

DECLARE_XML_CMD_CLASS ( Cxc_setBloodPressure ) 
DECLARE_XML_CMD_CLASS ( Cxc_setSLMDLocat ions ) 
DECLARE_XML_CMD_CLASS ( Cxc_setCholes terolReadings ) 
DECLARE_XML_CMD_CLASS ( Cxc_setUnregis teredUser ) 

setUserBiographics) 
setAllergylnf o) 
setHealthConditions) 
set Immunizations ) 
setMedicat ions) 
set Surgery Info) 
setTherapylnf o) 
setFamilyHi story) 
set Imaging Info) 
setReminder ) 
setUserPref erence) 

set Employment Info) 
setUser Physicians) 
setlnsurance) 



DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLAS S 3 ( Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 
DECLARE_XML_UPDATECMD_CLASS3 (Cxc 

DECLARE_XML_UPDATECMD_CLAS S 4 (Cxc 
DECLARE_XML_UPDATECMD_CLASS4 (Cxc 
DECLARE_XML_UPDATECMD_CLASS4 (Cxc 



#endif 
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#include "xc_OtherCommands . h" 

#include "rs_cpi_master . h" 

#include "rs_employers . h" 

#include "rs_company . h" 

#include "rs_address . h" 

#include "rs_phone.h" 



/////////////////7/////////////////////////////////////////////// 
CXC_IMPLEMENT__FACTORY ( Cxc_set Employment Info) 



I II 1 1 Jl I! ! 1 1 J 1 1 ! ! I ! I j I II 1 1 1 1 f 1 1 1 1 1 1 ! 1 1 / 1 1 1 / 1 ! I / 1 ! 1 1 1 J I ! I It ! I ! ! 1 1 1 ! I ! 1 1 
//Execute the command. [Call execute and write processing code in processDa ta { ) ] 
////////////////////////////////////////////////////////////////////// 
bool Cxc_setEmployment Inf o : : execCommand ( ) 

{ 

return execute ( ) ; 

} 



////////////////////////////////////////////////////////////////////// 
//Do parameter validation here 

////////////////////////////////////////////////////////////////////// 

bool Cxc_setEmploymentInf o : : parseParameters () 

{ 

string strData; 

/////////////////////////////////////////////////////////////////// 
//cp.i_id should be provided. 

/////////////////////////////////////////////////////////////////// 
strData = getParameterValue ( 11 cpi_id" ) ; 
i f ( strData . empty ( ) ) 

{ 

m_emLast . setError ( "\ "cpi_id\ " is a required parameter."); 
return false; 

} 

/////////////////////////////////////////////////////////////////// 
//employer name should be provided 

/////////////////////////////////////////////////////////////////// 
strData = getParameterValue { "name " ) ; 
if (strData . empty () ) 

{ 

m_emLast . setError ( "\ "name\ " is a required."); 
return false; 

} 

/////////////////////////////////////////////////////////////////// 

//Code ID's should be provided if any codes are provided 

/////////////////////////////////////////////////////////////////// 

if (! getParameterValue ( 11 state" ). empty ( ) && getParameterValue (" state_id" ). empty () ) 

{ 

m_emLast . setError ( "\ " state_id\ " is not present. Codes should be accompanied by its* 
CodelD. " ) ; 

return false; 

} 

if (! getParameterValue ( "country" ). empty ( ) && getParameterValue ( "country_id" ). empty () ) 

{ 

m_emLast . setError {" \ "country_id\ " is not present. Codes should be accompanied ' by 
its CodelD. " ) ; 

return false; 

} 
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////////////////////////////////////////////'/////////////////////// 
//Employer rec_id {if provided) should always be accompanied by employ er__id 
/////////////////////////////////////////////////////////////////// 

if ( ! getParameterValue ( "rec_id" ) .empty ( ) getParameterValue { M employer_id" ). empty () ) 
{ 

m_emLast . setError ( " \ "employer_id\ 11 required if \"rec_id\" is provided."); 
return false; 

} 



return true ; 

} 



////////////////////////////////////////////////////////////////////// 
// Do Data processing here. 

// [called from the execute method for each row of data] 
// 

// - creates employer record (in cpi_master) if employer__id is not provided else it * 
updates it. 

// - creates employment record (in employment) if rec_id is not provided else it updates 
it. 

// - creates phone and address record if it does not exists else updates it. 
// 

// * Functions ... by parameter provided 
// 

// - no employer_id & no rec_id : create employer and employment info. 
// - employer__id & rec__id : update employer and employment info. 

// - employer_id & no rec_id : Employer present, so update employer £ create employment X 
info. 

// - no employer_id & rec_id : invalid condition. 
// 

////////////////////////////////////////////////////////////////////// 
bool Cxc_s e t Employment I nf o : :processData () 

{ 

bool f Success = true; 
CSdoConnection * pconn = NULL; 

try 

{ 

Crs_employers rs_employers ; 
Crs_company rs_company; 
Crs_cpi_master rs_cpi_master ; 
Crs_address rs_address; 
Crs_phone rs_phone; 

string strEmpName, strEmpStreetl , strEmpStreet2 , strEmpCity, strEmpState; 
string strEmpZip, strEmpCountry , strEmpPhone , strJobTitle, strEmployeeNumber , \i 
strStartDate ; 

long lCpild, lEmpCpild, lEmpRecId, lEmpActiveSw, lEmpStateld, lEmpCountryld; 

//get the data 

lCpild = atol (getParameterValue { "cpi_id" ). c_str ()) ; 
lEmpCpild = atol (getParameterValue ( ,, employer_id" ). c_str ()) ; 

lEmpRecId = atol (getParameterValue ( "rec_id" ). c_str ()) ; /* identifies the record X 
in employment table */ 

lEmpActiveSw = atol (get ParameterValue (" act ive_sw" ). c_str ()) ; 
strEmpName = getParameterValue { "name ") ; 
strEmpStreetl = getParameterValue {" street 1 ") ; 
strEmpStreet2 - getParameterValue ( 11 s tree t2 ") ; 
strEmpCity = getParameterValue ( "city ") ; 
strEmpState = getParameterValue ( " state " ) ; 

lEmpStateld = atol (ge tParameterValue { " s tate_id" ) . c_str ( ) ) ; 
strEmpZip = get ParameterValue (" z ip ") ; 
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strEmpCountry = getParameterValue ( "country ") ; 

lEmpCountryld = atol (getParameterValue ( "country_id" ) . c_str{)); 
strEmpPhone = getParameterValue ( "phone ") ; 
strJobTitle = getParameterValue ( "job_title" ) ; 
strEmployeeNumber = getParameterValue ( "employee_number " ) ; 
strStartDate = getParameterValue (" start_dt ") ; 

//if Active Switch not provided, consider default as "1" 
if ( ! lEmpActiveSw) lEmpActiveSw = 1; 

//convert start_dt to DATE object. 
DATE dtStartDate; 
COleDateTime oledate; 

oledate . ParseDateTime (strStartDate . c_str ( ) ) ; 
dtStartDate = (DATE) oledate; 

if (dtStartDate == NULL) 
{ 

//return error if start date is made compulsary. 

} 

//get db connection. 

pconn = m_pcoClient- >getConnection ( ) ; 

//begin transaction 
pconn- >beginTrans ( ) ; 



//get new audit id 

long lAuditld = getAudit Id ( ) ; 

if (! lAuditld) 

{ 

m_emLast . setError ( "Unexpected Condition !!! Cannot get new Audit ID !!!"); 
throw fSuccess = false; 

} 



//if employer_id is not provided, create new employer record. 

if (! lEmpCpild) 

{ 

///////////////////////////////// 
//create new company record. 
///////////////////////////////// 

//get new cpi_id for company 
lEmpCpild = getNewCpild ( ) ; 
if ( ! lEmpCpild) 
{ 

m_emLast . setError ( "Unexpected condition!!! Cannot get new Cpi Id for * 
Employer !!!"); 

throw fSuccess = false; 

} 

char szBuf f er [20] ; 

string strCompanyCpild = "cpi"; 

strCompanyCpild += ltoa { lEmpCpild, szBuffer, 10); 

//insert new company record in cpi_master 
rs_cpi_master . setAct iveCommand ( "cmdlnsertEmptyRecord" ) ; 
rs_cpi_master . setParameter ( n cpi_id" , _variant_t (lEmpCpild)) ; 

rs_cpi_master . setParameter ( "cpi_text__id" , _variant_t ( strCompanyCpild . c_str * 

())); 

rs_cpi_master . setParameter { "audit_id" , _variant_t (lAuditld)) ; 
if ((fSuccess = pconn- >execute (rs_cpi_master) ) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false ; 
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} 

} 

//////////////////////////////////////////////////////// 
//update the company record in company table 
//(creates a new record if record does not exists) 
1 1 1 1 1 II I / 1 1 ! 1 1 f I / 1 1 / 1 1 1 / 1 1 1 /! 1 1 1 1 1 1 1 1 1 1 / f 1 1 1 1 1 1 1 1 1 1 1 II / 1 

rs_company . set Act ive Command ( "cmdUpdate " ) ; 

rs_company . setParameter ( 11 cpi_id" , _variant_t (lEmpCpild)); 
rs_company . setParameter { "name " , _yariant_t (strEmpName . c_str { ) ) ) ; 
rs_company. setParameter ( "audit_id" , _variant_t (lAuditld)); 
if ( (fSuccess = pconn- >execute (rs_company) ) == false) 

{ 

Tn_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess - false; 

} 



//////////////////////////////////////////////////////// 
//create/update employment record (depends on rec id) 
/ 7 7 71 7 7 7 7 7 7 7 7/ 7 7! 7 7 7 7 7 1 7 7 71 7/1 7 7 7 7 7 // 1 II 7/ // 1 1 1 1 il 7 7 1 1 7/ 

rs_employers . setAct iveCommand ( " cmdUpdate " ) ; 
rs_employers . setParameter ( H cpi_id'", _variant_t (lcpild) ) ; 
rs_employers . setParameter { ,, employer_id" , _variant_t ( lEmpCpild) ) ; 
rs_employers . setParameter ( "active_sw" , _variant_t ( lEmpActiveSw) ) ; 
rs_employers . setParameter { " job_title 11 , _variant_t ( strJobTitle . c_str ( ) ) ) ; 
rs_employers . setParameter ( "employee_number " , _variant_t ( strEmployeeNumber . c_str 
0 )) ; 

rs_employers . setParameter { "audit_id" , _variant_t (lAuditld) ) ; 

//initilize start_date if available, 
if (dtStartDate) 

rs_employers . setParameter ( "start_dt" , _variant_t (dtStartDate)) ; 



1 1 set record id (if provided) to update employement record, 
if (lEmpRecId) 

rs_employers . setParameter ( "rec_id" , _variant_t ( lEmpRecId) ) ; 
if ((fSuccess = pconnoexecute (rs_employers ) ) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

/ 1 1 1 1 1 1 1 1 1 7 1 1 7 1 1 1 1 1 1 1 1 1 1 1 1 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
//create /update employer phone. 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
string strPhoneRecordld; 

//check if employer phone record exists 

r s_phone . setAct iveCommand ( " cmdFetchRecordldByPurpose " ) ; 
rs_phone . setParameter ( "cpi_id" , _variant_t (lEmpCpild)); 
rs_phone . setParameter ( "purpose " , _variant_t ("Work")); 
rs_phone . setParameter ( "line_type" , _variant_t ("Voice")); 
if ((fSuccess = pconn->execute (rs_phone) ) =- false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

//get the MAX phone rec_id 
if ( ! rs_phone . isEmpty ( ) ) 

rs^phone . getField ( "rec_id" , strPhoneRecordld) ; 
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rs_phone . clearParms ( ) ; 

rs_phone . setRecordSetToNull ( ) ; 

r s_phone . set Act ive Command ( " cmdUpdate 11 ) ; 

rs_phone .setParameter ( "cpi_id" , _variant_t (lEmpCpild)); 

rs_phone . setParameter ( "number" , _variant_t (strEmpPhone . c_str ( ) ) ) ; 

rs_phone . setParameter ( "purpose" , _variant_t ("Work")); 

rs_phone . setParameter ( "active_sw" , _variant_t ( " 1 " ) ) ; 

rs_phone . setParameter ( "audit_id" , _variant_t (lAuditld)); 

//set record id if available to update record, 
long IRecId = atol ( strPhoneRecordld . c_str ( ) ) ; 
if (IRecId) 

rs_phone , setParameter ( "rec_id" ( _variant_t (IRecId)); 
if ((f Success = pconn->execute (rs_phone) ) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

//////////////////////////////////////////////////////// 
//create/update employer address 

//////////////////////////////////////////////////////// 
string strAddressRecordld; 



//check if employer address record exists 
rs_address . setActiveCommand ( " cmdFetchRecordldByPurpose " ) ; 
rs_address . setParameter ( "cpi_id" , _variant_t (lEmpCpild)); 
rs_address . setParameter ( "purpose" , _variant_t ("Work")); 
if ((fSuccess = pconn- >execute (rs_address) ) == false) 

{ 

m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw fSuccess = false; 

} 

//get the MAX address rec_id 
if ( ! rs_address . isEmpty ( ) ) 

rs_address . getField ( "rec_id" , strAddressRecordld) ; 



rs_address . clearParms ( ) ; 
rs__address . setRecordSetToNull ( ) ; 
rs_address . setActiveCommand ( "cmdUpdate 11 ) ; 

rs_address . setParameter { "cpi_id" , _variant_t (lEmpCpild)); 
rs_address . setParameter ( "active_sw" , _variant_t ("1")); 
rs_address . setParameter ( "purpose" , _variant_t ("Work")); 
rs_address . setParameter ( "primary_sw" , _variant_t ("1")); 
rs_address . setParameter ( " streetl " , _variant_t ( strEmpStreetl . c_str ( ) ) ) ; 
rs_address . setParameter ( " street2 11 , _variant_t ( strEmpStreet2 . c_str ( ) ) ) ; 
rs_address . setParameter ( "city" , _variant_t (strEmpCity . c_str ( ) ) ) ; 
rs_address . setParameter ( "state" , _variant_t ( strEmpState . c_str ( ) ) ) ; 
if ( lEmpStateld) rs_address . setParameter (" state_id" , _variant_t (lEmpStateld) ) ; 
rs_address . setParameter ( "zip" , _variant_t ( strEmpZip . c_str ( ) ) ) ; 
rs_address . setParameter { "country" , _ variant_t ( strEmpCountry . c_str ( ) ) ) ; 
if ( lEmpCountryld) rs_address . setParameter ( 11 country_id" , _variant_t 
(lEmpCountryld) ) ; 

rs_address . setParameter ( "audit_id" , _variant_t (lAuditld) ) ; 

//set record id if available to update record. 
IRecId = atol (strAddressRecordld. c_str ()) ; 
if (IRecId) 

rs_address . setParameter { "rec_id" , _variant_t (IRecId)); 
if ((fSuccess = pconn->execute (rs_address) ) == false) 

{ 
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m_emLast . setError (pconn- >getLastError ( ) ) ; 
throw f Success = false; 

} 

} 

catch (bool f Error) 

{ 

f Error ; 

} 

catch (_com_error & e) 

{ 

m_emLast . setError (e) ; 
fSuccess = false; 

} 

catch (...) 

{ 

m_emLast . setError ( "Unknown exception raised. [Command: setEmployment Info] ") ; 
fSuccess = false; 

} 



//commit or Roll back the transaction, 
if (pconn) 

{ 

if (fSuccess) pconn- >commitTrans () ; 
else pconn->rollbackTrans ( ) ; 

} 

return fSuccess ; 



C:\Docum ents and Settings\billyhe\My ... LCServices\LCBroker\xc set FamilyH istory . cpp 1 

% include "xc_Other Commands . h" 

# include " rs_f ami ly_hi story . h" 

///////////////////////////////////////////////////////////////// 
CXC_ I MPLEMENT_ FACTORY (Cxc_set FamilyHistory ) 



/////////////////////////////////;//////////////////////////////////// 

//Do parameter validation here 

bool Cxc_setFamilyHistory : : par se Parameter s {) 

{ 

string strData; 

/////////////////////////////////////////////////////////////////// 
//cp:;_id should be provided. 

/////////////////////////////////////////////////////////////////// 
strData = get ParameterValue ( " cpi_id" ) ; 
if ( strData . empty {) ) 
{ 

m_etnLast . setError ( "\ "cpi_id\ " is a required parameter."); 

r e t u r n fa 1 s e ; 

} 

//////////////////// ///// ////////////// //////////////////////////// 
//Ensure description always accompanies a code id 

////////////////////////////////////// ///////////////////////////// 

if (getParameterValue { "relationship" ). empty { ) ! get ParameterValue ( "relat ionship_id ") * 

.empty { ) ) 

{ 

m_emLast . setError { "\ "relationship\ " is not present. Codes should be provided with * 
code id . H ) ; 

return false; 

) 

return true; 

} 



////////////////////////////////////////////////////////////////////// 
//Execute the command. 

bool Cxc_set FamilyHistory : : execCommand { ) 
{ 

Cr s_f ami ly_hi story r s_f ami ly_his tory ; 

r s_f ami ly_hi story . se tActi veCommand { "cmdUpda te " ) ; 

//update the db. 

bool f Success = execu teUpda te (rs_f amily_history ) ; 
return fSuccess; 

} 
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^include "r s_health_condit ion . h" 

////////V/////////7//VV////////V// ////////////////////////// ///■// 
CXC IMPLEMENT FACTORY ( Cxc setHealthConditions) 



/////////// ///V/ ////////////////// ////V//// //////////// ////////V///\'// 
//Do parameter validation here 

bool Cxc_setHealthConditions : : parseParameters () 
{ 

string strData; 

//////////////// //////// ///////// / ,77// //////////////////// //////// 
//cpi_id should be provided. 

///////////////////////////////// ///////^'//77' /////////////// /////// 
strData = ge tParameterValue { "opioid" } ; 
if ( strData . empty {) ) 
{ 

m_emLas t . setError { "\ "cpi_id\ " is a required parameter.") ; 
return false; 

} 

////////////////////// /////// ////////////////////////////////////// 
//Ensure description always accompanies a code id 

///////////////////////////// ////// /////// ////// /////// //////////// 

if (getParameterValue ( "condition" ) . empty () && ! get Parame terValue ( "condi t ion_id" ) .empty* 

( ) ) 

{ 

m_emLast . setError ( "\ "condition\ " is not present. Codes should be provided with * 
code id . " ) ; 

return false; 

) 

return true; 

} 



////////////////////////////// /////////\OZ ////////////////////// ////// 
//Execute the command. 

bool Cxc_setHealthConditions : : execCommand ( ) 
{ 

//Instantiate the sdo command. 
Cr s__health__condi tion rs_hc; 

//set active command 

r s_hc . setActiveCommand ( " cmdUpda t e " ) ; 

//update the db . 

bool fSuccess = execut eUpdate ( r s_hc ) ; 



return fSuccess; 

} 
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I? include "xc_Ot her Commands . h" 

jfinciude " r s_imaging . h" 

////////// //////////// /////// ////////////////////////// ////////7/ 
CXC_ I MPLEMENT_ FACTORY ( Cxc_s e t Imaginglnf o ) 



/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /////// / / / / / / / ////////// / / / / / / //////// / / 

//Do parameter validation here 

bool Cxc_setlmaginglnf o : : parseParameter s () 

{ 

string strData; 

///////////////////// ////////////////////////////////////////////// 
//cpi_id should be provided. 

/ /// 7/ 7/ 7/ 77 7 7 // 7 7 7/ / / // 7/ 7 7/ 7 7 7/ 71 7/ 7 7 7/ 71 7 7 7 7/ 7 7 "// 7/ 7/ '// '// 7/ 7 7 7/ 7 
strData = get Par ameterValue ( "cpi_id" ) ; 
i f (strData . empty { ) ) 
{ 

m_emLast . setError ( " \ "cpi_id\ " is a required parameter."); 

r e t urn false ; 

} 

'//////////////// ////////////////////////////////////////////////// 
//Ensure description always accompanies a code id 

if ( getParameterValue { "imaging_type" ). empty < ) && ! get ParameterValue ( "imaging_t ype_id" ) 

. empty ( ) ) 

{ 

m_emLast . setError ( " \ "imaging_type\ " is not present. Codes should be provided with yt 
code id . " ) ; 

return false; 

} 

if (getParameterValue ( "reason" ) .empty { ) ! getParameterValue (" reason_id" ). empty () ) 

{ 

m_emLast . setError ( "\ "reason\" is not present. Codes should be provided with code ^ 
id. ") ; 

return false; 

} 

retur n t r u e ; 

} 



/////////////7/^^/ /////////////// ////////////// ///// //////////// /////// 

//Execute the command. 

bool Cxc_setlmaginglnf o : : execCommand ( ) 
{ 

//Instantiate the sdc command . 
Crs_imaging rs_imaging; 

//set active command 

r s_imaging . se tAct iveCommand ( " cmdUpda te " ) ; 

//update the db. 

boci f Success = execu teUpdate ( r s_imaging) ; 
return f Success; 

} 
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?? include "xc_Ot her Commands . h" 
^include " r s_immuni za t ion . h" 

// 7 7 ■// 7 ■// 7 7 7 7 7 7 7/ 7 7 V/ / 7 7 7 / 7/ 7/ 7/ 7 7 7 7 7/ 7 7 77/ 7/ 7/ 7/ 7/ 7 7 7 7 7/ 7 7 7 7 7 7 / 7 
CXC_IMPLEMENT_FACTORY (Cxc_se tlmmuni zat ions ) 



////////////////////////////////////////////////////////////////////// 

//Do parameter validation here 

bool Cxc_se tlmmuni zations :: parseParameters () 

{ 

string strData; 

/ / / / / / / / / / / / / / / / ////// / / / /////////////// / / /////////////// ////////// 

//cpi_id should be provided. 

////////////////////////////////////////// 

strData = get ParameterValue { "cpi_id" ) ; 

if ( strData . empty () ) 

{ 

m_emLast . setError { " \ "cpi_id\ " is a required parameter."); 

return false; 

} 

///////////////////////////////////////////// ////////////////////// 
//Ensure description always accompanies a code id 

/////////////////////////////////////////////////////////////////// 

if ( get ParameterValue { "immuni zat ion_type " ). empty ( ) ! get Par ameterValue ( 

"immuniza tion_type_id M ) . empty {) ) 

< 

m_emLast . setError { " \ " immuni zat ion_type\ " is not present. Codes should be provided 
with code id . " ) ; 

r e turn fa 1 s e ; 

} 

return true; 

} 



////////////////////////////////////////////////////////////////////// 
//Execute the command. 

bool Cxc__se tlmmuni zations : : execCommand ( ) 
( 

//Instantiate the sdo command. 
Crs_immuni zat ion r s_immuni zat ion ; 

//set active command 

r s_ immuni za t ion . set Active Command ( " cmdUpda te " ) ; 

//update the db . 

bool f Success - executeUpda te (rs_immunization) ; 
return fSuccess; 
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# i nclucie "xc_Ot her Commands . h 11 
^include " r s_insurance - h" 

///////// ///////////////// /////////////////////////////////////// 
C XC_ I M PL EMENT_ FACTORY (Cxc_set Insurance ) 



///////////////// /////////////// ////////////////////////////////////// 
/./Execute che command . [Call execute and write processinq code in process Data ( ) 3 

//V/////^^//^/////////////////////////V ///// /////// ////////// /////////// 

bocl Cxc_se tlnsurance : : execCommand ( ) 
{ 

return execute ( ) ; 

} 



////////////////////////////////// //////////////////////////////////// 
//Do pax a meter validation here 

//////////////////////////////////////////////////////// ////////////// 

bool Cxc_setlnsurance : : par seParameter s {) 

{ 

string strData; 
bool f Present ; 

/////////////////// ////// ////// /// //////•/ ///////////////////////// / 
//cpi_id should be provided. 

///■•'/ ///////// ////// //// /////// //////// ///////////////// /////////// 
strData = getParameterValue ( "cpi_id" ) ; 
if (strData. empty () ) 
{ 

m_emLast . setError ( " \ "cpi_id\ " is a required."); 

r e t urn false; 

} 

/////////////////////////////////////////////////////////////////// 
//rec id should be provided. 

//////////// /////// //////// '////////// ////////////////////// //////// 
strData = get Parame t erVa lue ( " rec_id" ) ; 
if ( strData . empty () ) 
{ 

m_emLast . setError ( " \ "rec_id\ " is a required."); 
return false; 

} 

//////■///////////////////////////////////////////////////////////// 
//company id should be provided. 

///// ///////// //////////////// ///////////////////////////////////// 
strData = get Parame terValue ( "company_id" ) ; 
if (strData . empty () ) 
{ 

m_emLast . setError ( "\ "company_id\ " is a required."); 

return false; 

} 



/////////////////////////////////////////////////////////////////// 
//plan id should be provided. [ HO restrictions on plan id for now. 3 
//////// ////////// ////// //////////////////////// /////////////////// 
/* strData = get Par ainecerValue ( "plan_id M ) ; 
if (strData . empty ( } ) 
i 

m_emLast . setError {" Vplan^idV is a required."}; 
return false; 

} 



C:\Documents and Settings\billyhe\My . . . \LCServices\LCBroker\xc set Insurance . cpp 2 

/////////////////////////////////////////////////////////////////// 

//Company name should be provided 

///////////////////////////////////////////// 

strData = get Parame terValue ( "company_name " ) ; 

if ( strData . empty () ) 

{ 

m_emLast . setError { " \ " company_name\ " is required."); 
return false; 

} 

/////////////////////////////////////////////////////////////////// 
//Self Insured Swith should be provided. 
//////////////////////////////////////// 
fPresent = false; 

strData = get Parame terValue (" self_insured_sw" ) ; 

if ( strData . empty () ) 

{ 

m_emLast . setError ( "\ "self _insured_sw\ " is required."); 
return false; 

} 

bool fSelflnsured = {strData == "1") ? true : false; 

/////////////////////////;//////////////// ///////////////////////// 

//Subscriber last name should be provided if any name components are provided 

////////////// ///7// ////// //////// //////// //////////////// ///////// 

fPresent = false ; 

strData = get Par ame terValue (" subscr iber_last_name ") ; 

if ( strData . empty () ) 

{ 

if (! getParameterValue ( "subscriber_f irst_name "). empty () ) fPresent = true; 
if (! getParameterValue ( "subscriber_middle_name" ). empty {) ) fPresent - true; 

if (fPresent) 
{ 

m_emLast . setError { "\"Last Name \" is required, if any other name components wT 
are provided . " ) ; 

return false; 

) 

//No subscriber info provided, so make sure seif_ insured switch is "1" 

if {! fSelflnsured) 

{ 

m_emLast . setError ( "No subscriber info provided for dependent !!!"); 
return false; 

} 

) 

// 7 / 7 / 7 '/ 7/ 7/ 7 // 7 '// 7/ / 7/ 7 '/ 7 77 7 7 7/ 7 7 7/ / 7 77 7 7/ /// / // 7/ 7/ // V 7/ // 7 7 '// 7 V 7 

//Code ZD's should be provided if any codes are provided 

/////////////////////////////////////////////////////////////////// 

if {! getParameterValue ( "state" ). empty { ) && getParameterValue { "state_id" ). emptv {) ) 

{ 

m_emLast . setError ( " \ " s ta te_id\ " is not present. Codes should be accompanied by its* 
Code ID.") ; 

return false; 

} 

if {! getParameterValue ( "country" ). empty { ) getParameterValue ( "country_id" ). emptv () ) 
{ 

m_emLast . setError ( " \ "country_id\ " is not present. Codes should be accompanied by 
its CodelD. ") ; 

return false; 

} 

if (! get Parame terValue ( "claims_s tate " ). empty ( ) && ge t Pa rameterValue ( "claims_s tate_id" ) ^ 

. empty { ) ) 

{ 
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m_emLast . setError ( " \ " claims_s tate_id\ " is not present. Codes should be accompanied* 
by its CodelD. ") ; 
return false; 

} 

if (! getParameterValue ( "claims_country" ). empty ( ) && get Parameter Value ( 

"claims_country_id" ) . empty ( ) ) 

{ 

m_emLast . setError { "\ " claims_count r y_id\ " is not present. Codes should be 
accompanied by its CodelD."); 

return false; 

} 

if (! getParameterValue (" subscr iber__rela tionship" ). empty ( ) && getParameterValue ( 

" subscriber_relationship_id" ) . empty () ) 

{ 

m__emLast . setError { "\"subscriber_relationship_id\" is not present. Codes should be 
accompanied by its CodelD."); 
return false; 

} 

return true; 



////////////// ///V /V/ /////////// ////^^////////////^'/^^/ ////// /////////// 

// Do Data processing here. 

// [called from the execute method for each row of. data] 
/ / 

// - creates insurance c omp any, subscriber and participant insurance records . 
/ / 

///////////////////////// ///:\'////J //////////J/:////////////;// /////// 

bool Cxc_setlnsurance : rprocessDa ta () 
{ 

bool fSuccess - true; 
CSdoConnection * pconn = NULL; 

try 
{ 

Crs_name rs_name; 
Crs_address rs_address; 
Crs_phone rs__phone; 
Cr s_cpi_master rs_cpi_master ; 
Cr s_insurance r s_insurance ; 
Crs^insured rs_insured; 
Crs_company rs_company; 

Crs_insured_dependents r s_insured_dependent s ; 

string s trCompanyName , strStreetl, strStreet2, strCity, strZip, strState, * 
strCountry ; 

string strClaimsSt ree t 1 , s t rClaimsStr ee t 2 , s t rCla imsCi t y , s t rCl a imsSta t e , 
strClaimsZip, s trClaimsCoun tr y ; 

string str PhoneEmer gency , s tr PhoneMen talHeal th, s tr PhonePr eCer t , s trPhoneBenef i ts , 
str PhoneOther ; 

string strPlanCode, strPlanType, str PlanEf f ecti veDate , str PolicyNumber , 
StrGroupNumber, strGroupName; 

string s trSubLastName , s t rSubFir s tName , s t rSubMiddleName , strSubRelationship, 
strSubPhone ; 

long lCpild, IStateld, ICountryld, IClaimsStateld, iClaimsCountr yld , 
lSubRe la tionship Id ; 

bool f Self Insured, f SubldPr esent ; 

long ICompanyCpild, UnsRedd, lSubCpild; 



//get the parameters 



C:\Documents and Settings\billyhe\My . . . \LCServices\LCBr oker\xc set Insurance . cpp 



4 



lCpild = atol (getParameterValue { M cpi_id" ) . c_str ( ) ) ; 
UnsRecld = atol (getParameterValue ( "rec_id" ). c_str ()) ; 
ICompanyCpild = atol (getParameterValue { "company_id" ) . c_str ( ) ) ; 
lSubCpild = atol (getParameterValue ( " subscriber_id" ) . c_str ( ) ) ; 
strCompanyName = get ParameterValue ( "company_name " ) ; 
strStreetl = getParameterValue ("streetl" ) ; 
strStreet2 = getParameterValue ( ,, street2 u ) ; 
strCity = getParameterValue ( "city" ) ; 
strState = get ParameterValue (" state" ) ; 

IStateld = atol (getParameterValue ( "state_id" ). c_str {)) ; 
strZip = get ParameterValue (" zip" ) ; 
strCountry = getParameterValue ( "country" ) ; 

ICountryld = atol (getParameterValue ( "country_id" ). c_str {)) ; 
s trClaimsStr eetl = get ParameterValue ( "claims_streetl" ) ; 
strClaimsStr eet2 = getParameterValue ( "claims__street2" ) ; 
strClaimsCity = get ParameterValue (" claims_city" ) ; 
strClaimsState - ge t Pa rameterValue ( "claims_s ta te " ) ; 

lClaimsStateld = atol (getParameterValue ( " claims_s t ate_id" ) . c_str ( ) ) ; 
strClaimsZip = get ParameterValue ( "claims_zip" ) ; 
strClaimsCountry = get ParameterValue ( "claims_countr y " ) ; 

lClaimsCountryld = atol ( get ParameterValue ( "claims_country_id" ) . c_str ( ) ) ; 
strPhoneEmergency = get ParameterValue ( "phone_emer gency "J ; 
strPhoneMentalHeal th = getParameterValue ( "phone_mental_heal th" ) ; 
strPhonePreCer t = get ParameterValue ( "phone_precert" ) ; 
strPhoneBenef i ts = get Par ame terValue ( "phone_benef i t s " ) ; 
strPhoneOther = getParameterValue ( "phone_other" } ; 
strPlanCode = get ParameterValue ( "plan_code ") ; 
strPlanType - ge t Parameter Value ( "plan_type ") ; 

strPlanEffectiveDate = getParameterValue ( "plan_e f f ect i ve_dt " ) ; 
strPolicyNumber = get Par arneterValue ( "policy_number ") ; 
s trGroupNumber = getParameterValue ("group number") ; 
strGroupName = get Par arneterValue ( "group_name " ) ; 
strSubLastName = get Par arneterValue ( "subscr iber_last_name ") ; 
strSubFirstName - getParameterValue ( " subscribe r_f irst_name " ) ; 
s trSubMiddleName = get Par arneterValue ( " subscr i be r_middle__name " ) ; 
strSubRelationship = get Par arneterValue ( "subscr iber_relationship" ) ; 

lSubRelationshipId = atol (getParameterValue ( " subscr iber_r elationship_id" ) . c_str ( ) ) *r 
strSubPhone = getParame terValue ( "subscr iber_phone" ) ; 

fSelflnsured = (getParameterValue ( " sel f _insured_sw" ) == "1") ? true : false; 

//set flag for subscriber id 

f SubldPresent = (lSubCpild != 0)? true : false; 

//convert date in date time object. 
DATE dtPlanEf f ectiveDate; 
COleDateTime oledate; 

oledate . Parse Da teTime( strPlanEffectiveDate. c_str ( ) ) ; 
dtPlanEf f ectiveDate * (DATE) .oledate; 

if (! dtPlanEf f ectiveDate) 
{ 

//return error if date is made comoulsarv. 

} 

//get db connection. 

pconn = m_pcoClient->getConnection ( ) ; 

//begin transaction 
pconn->beginTrans ( ) ; 

//get new audit id 

long lAuditld = getAudi t Id ( ) ; 

if (HAuditld) 

{ 

m_emLast . setError ( "Unexpected Condition !!! Cannot get new Audit ID !!!"); 
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throw fSuccess = false; 

} 
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// COMPANY: update company record 

/ * > * ■* *r -7 V * * t -V •> A- * * ■ * **+* A" f '* t ,V 4- -* -i ; * + r V * A- * * ■* t- * ^ -f A r * + ■* \ ■ ± 4.- * V * \ * V * + * ■* + + * / 



//update company table 

/////////////////////////////// ////////////// ///////// 

rs^company . clearParms ( ) ; 

rs_company . setRecordSetToNul 1 ( ) ; 

r s_company . set Act iveCoramand { "cmdUpdate " ) ; 

rs_company . set Parameter ( "cpi_id" , _var iant_t ( ICompanyCpild) ) ; 
rs^company . set Parameter ( "name" , _variant_t ( s t rCompanyName . c_str { ) ) ) 
rs_company . set Parameter ( "audit_id" , _variant_t (lAuditld) ) ; 
if ((fSuccess = pconn->execute (rs_company) ) = = false) 
{ 

m_emLas t .setError(pconn->getLastError{) ) ; 
threw fSuccess = false; 

} 



//////////////////////////////////////// / / //////////// 

// create/update the company address record. 

/// / ///////////////• •'///////////// / /////// / //////////// 

string strRecId; 
long IRecId = 0; 



//get reo_id of company address record 

rs_address . clearParms ( ) ; 

r s_addr ess . se tRecordSetToNull ( ) ; 

rs_address . se tAct iveCommand { "cmdFet chRecor dldByPurpose" ) ; 
rs_address . set Parameter ( "cpi__id" , _variant_t (ICompanyCpild) ) ; 
r s_address . set Parameter ( "purpose" , _variant_t ( "Work" ) ) ; 
if {(fSuccess = pconn->execute (rs_address) ) == false) 
{ 

m_emLast . setErr or (pconn->ge tLa s tEr ror ( ) ) ; 
throw fSuccess = false; 

} 



//get the MAX rsc id 

if ( ! r s_address . isEmpty ( ) ) 

{ 

rs_address . get Field ( "rec_id" , strRecId) ; 
IRecId = atol (strRecId. c_str() ) ; 

} 



//update company address record 
rs_address . clearParms () ; 
rs_address . se tRecordSetToNull ( ) ; 
rs_address . setActiveCommand ( "cmdUpdate" ) ; 

rs_address . set Parameter ( "cpi_id" , _variant_t { ICompanyCpild) ) ; 
rs_address . setParameter ( "active^sw", _variant__t ("1")); 
r s_address . set Par amet er ( "pr imary_sw" , _variant_t ( " 1 " ) ) ; 
rs_address . setParameter ( "purpose" , _variant_t ("Work")); 
rs_address . set Parameter ("streetl", _va ri an t_t (strStreetl. c_str ( ) ) ) 
rs^address . setParameter ("street2", _variant_t (strStreet2.c_str{) ) ) 
rs^address . setParameter { "city" , _variant_t (strCity . c_str ( ) ) ) ; 
rs_address . setParameter ( "state", _variant_t ( s tr State . c_str ())) ; 
rs_addr ess . setParameter (" zip" , _variant_t ( s t r Zip . c_s tr ( ) ) ) ; 
r s_addr ess . setParameter ( "country" , _variant_t ( strCountry . c_str ( ) ) ) 
rs_address . setParameter { "audit id", variant t (lAuditld) ) ; 
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if (IStateld) rs_address . set Parameter { "state_id" , _variant_t (IStateld)); 

if (ICountryld) rs_addr ess . set Parameter (" count r y_id" , _variant_t ( ICountr yld) ) ; 

if (IRecId) 

rs_address . setParameter { n rec_id" , _variant_t (IRecId)); 

if {{fSuccess = pconn~>execute (rs_address) ) == false) 
{ 

m_emLast . set Err or (pconn->getLas tEr ror ( J ) ; 
throw fSuccess = false; 

} 



//get rec id of company claims address 

r s_address . clear Parms ( ) ; 

r s_address . se tRecordSetToNull ( ) ; 

r s_address . se tActiveCommand ( " cmdFetchRe cord IdBy Pur pose " ) ; 
rs_address . setParameter ("cpi_id", _variant_t { ICompanyCpild ) ) ; 
rs_address . setParameter ( "purpose" , _variant_t ("Claims")); 
if ((fSuccess = pconn->execute (r s_address) ) false) 
{ 

m_emLast . se tEr ror (pconn~>getLas tEr ror ( ) ) ; 
throw fSuccess * false; 

} 

//cet the MAX address rec id 
IRecId = 0; 

if { ! rs_address . isEmpty { ) ) 
{ 

rs_addr ess . get Field ( "rec_id" , strRecId) ; 
IRecId = atol (strRecId . c_str ()) ; 

} 



//update company claims address record 

rs_address . clear Parms ( ) ; 

rs_address . set Re cord Set ToNul 1 ( ) ; 

rs_ address. setActive Command ( "cmdUpdate" ) ; 

rs_address . set Parameter ( "cpi_id" , _var iant_t (ICompanyCpild ) ) ; 
rs_address . set Parameter ( "active_sw" , _variant_t ("1")); 
rs_address . setParameter ( "purpose" , _variant_t ("Claims") ) ; 

rs_addr ess . setParameter (" streetl", _variant_t ( strClaimsStreetl . c_str ( ) ) ) ; 
r s__address . setParameter ("street2", _variant_t (strClaimsStreet2.c_str{) ) ) ; 
rs_addr ess . setParameter ( "city" , _variant_t ( strClaimsCity . c_str ( ) ) ) ; 
rs_addr ess . setParameter ( "state" , _variant_t ( strClaims State . c_str ( ) ) ) ; 
rs__addr ess . setParameter ( "zip" , _var iant_t (strClaimsZip. c_str ( ) ) ) ; 
rs_address . setParameter ( "country" , _variant_t ( s trClaimsCountr y . c_str ( ) ) ) ; 
rs_address . setParameter { "audi t__id" , _variant_t (lAuditld)); 
if ( lClaimsStateld) r s__addr ess . set Par ameter ( "state_id" , _variant_t 
(lClaimsStateld)); 

if ( IClaimsCountryld) rs_address . set Parameter ( "country_id" , _variant_t 
(lClaimsCountryld) ) ; 

if (IRecId) 

rs_address . set Parameter ( "rec__id" , _variant_t (IRecId)); 

if ((fSuccess = pconn->execute (r s_address ) ) == false) 
{ 

m_emLast . setError (pconn->getLastEr ror ( ) ) ; 
throw fSuccess = false; 

} 

/////////////////////////////////////////// 
//update company phone records 
/////////////////////////////////////////// 

//get xec id for emergency room phone 
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IRecId - 0; 

rs_phone . clear Parms ( ) ; 
rs_phone . setRecordSetToNull ( ) ; 

rs_phone . setActi veCommand ( "cmdFet chRecordldByPurpose " ) ; 
rs_phone . set Parameter ( "cpi_id" , _variant_t { ICompanyCpild ) ) ; 
rs_phone . setParameter ( "purpose", _variant_t ( "EROOM" ) ) ; 
rs_phone . set Parameter ( "line_type" , __variant_t ("Voice")); 
if {{fSuccess = pconn~>execute ( rs_phone ) ) ~- false) 
{ 

m__emLast . setError (pconn->ge tLas tError ( ) ) ; 
throw fSuccess = false; 

} 

if ( ! r s^phone . isEmpty ( ) ) 
{ 

rs_phone . get Field { "rec_id" , strRecId) ; 
IRecId = atol (strRecId . c_str ()) ; 

} 

//update emergency room phone 
r siphon e . clea r Parms () ; 
rs__phone . setRecordSetToNull ( ) ; 
rs_phone . setAct iveCommand ( "cmdUpdate" ) ; 

rs__phone . setParameter ( "cpi_id" , _variant_t (ICompanyCpild)); 

rs_phone . setParameter { "number" , _variant_t ( s tr PhoneEmergency . c_str ( ) ) ) ; 

rs_phone . setParameter ( "purpose" , _variant_t ("EROOM")); 

rs_phone . set Parameter ( "active_sw" , _variant_t ("1")); 

rs_phone . set Parameter ( "audit_id" , -_variant_t (lAuditld)); 

if (IRecId) 

rs_phone . setParameter ( "rec_id" , _variant_t (IRecId)); 

if ({fSuccess - pconn->execute (rs_phone) ) false) 
{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 

throw fSuccess = false; 

} 

//get rec_id for mental health phone 
IRecId = 0; 

r s_phone .clear Parms () ; 
rs_phone . setRecordSetToNull ( ) ; 

rs_phone . setActi veCommand ( "cmdFet chRecordldByPurpose " ) ; 
rs_phone . setParameter { "cpi_id" , _variant_t ( ICompanyCpild) ) ; 
rs_phone . setParameter ( "purpose", _variant_t ("MHEALTH")); 
rs_phone . setParameter { "line_type" , _variant_t ("Voice")); 
if ((fSuccess = pconn->execute (rs_phone) ) — false) 
{ 

m_emLast . setError (pconn->get La stError () ) ; 
throw fSuccess - false; 

} 

if { ! r s_phone . isEmpty ( ) ) 
{ 

rs_phone . get Field { "rec_id" , strRecId) ; 
IRecId = atol (strRecId. c_str ()) ; 

} 

//update mental health phone 
rs_phone . clearParms ( ) ; 
rs_phone . setRecordSetToNull { ) ; 
rs_phone . setAct iveCommand ( "cmdUpdate" ) ; 

rs_phone . setParameter ( "cpi_id" , _variant_t (ICompanyCpild)); 

rs_phone . setParameter ( "number" , _variant_t (strPhoneMentalHealth . c_str { ) ) ) ; 

rs_phone . setParameter ( "purpose" , _variant__t ("MHEALTH")); 

rs_phone . setParameter ( "active_sw" , _variant_t ( " 1 " ). ) ; 

rs_phone . setParameter ( "audit_id" , _variant_t (lAuditld) ); 



if (IRecId) 
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rs_phone . setPar ameter ( "rec__id" , _variant_t (lRecId)); 

if ( (fSuccess = pconn->execute (rs_phone ) ) == false) 
{ 

m_emLast . setErr or (pconn->getLas tEr ror { ) ) ; 
throw fSuccess = false; 

} 

//get ree_id for Pre Certification phone 
lRecId = 0; 

r s__phone .clearParms () ; 
rs__phone . setRecordSetToNull { ) ; 

rs_phone . setAct iveCommand { "cmdFe tch Re cord Id By Pur pose" ) ; 
rs_phone . set Parameter ( "cpi_id" , _variant_t (ICompanyCpild)); 
rs_phone . setParameter ( "purpose" , _variant_t ( " PRECERT" ) ) ; 
rs_phone . setParameter ( "line__type " , _variant_t ("Voice") ); 
if {(fSuccess = pconn->execute (rs_phone ) ) == false) 
{ 

m_emLast . setErr or (pconn->ge tLas tEr ror ( ) ) ; 
throw fSuccess = false; 

} 

if ( ! r s_phone . isEmpty 0 ) 
{ 

r s_phone . getField ( "rec_id" , strRecId) ; 
lRecId = atol {strRecId. c str ()) ; 



//update Pre Certification phone 

rs_phone . clearParms { ) ; 

r s_phone . setRecordSetToNul 1 ( ) ; 

r s_phone . setAct iveCommand ( "cmdUpdate" ) ; 

rs_phone . setParameter ( "cpi_id" , _variant_t (ICompanyCpild) ) ; 

rs_phone . setParameter { "number" , _vari an t_t ( s tr Phone PreCert . c_str ( ) ) ) ; 

rs_phone . setParameter { "purpose" , _variant_t ( " PRECERT " ) ) ; 

rs_phone . set Parameter ( "active_sw" , _variant_t ("1")); 

rs_phone . set Parameter ( "audi t__id" , _variant_t (lAuditld)); 

if (lRecId) 

r s_phone . setParameter ( "rec_id" , _variant_t (lRecId) ) ; 

if ((fSuccess = pconn->execut e (rs_phone) ) == false) 
{ 

m_emLast . setError (pconn->getLas tEr r or ( ) ) ; 
throw fSuccess = false; 

} 

//get rec_id for Benefits phone 
lRecId = 0; 

rs_phone . clearParms ( ) ; 
rs_phone . setRecordSetToNull ( ) ; 

r siphon e . setAct iveCommand ( "cmdFetchRecordldByPurpose" ) ; 
rs_phone . set Parameter { "cpi_id " , _variant_t (ICompanyCpild)); 
rs_phone . setParameter { "purpose" , _variant_t ( "BENEFITS" ) ) ; 
rs_phone . set Parameter { "line__type" , _variant__t ("Voice")); 
if ((fSuccess = pconn->execute (rs_phone) ) false) 
{ 

m_emLast - setError (pconn->ge tLas tEr ror ( ) ) ; 
throw fSuccess - false; 

} 

if ( ! r s__phone . isEmpty ( ) ) 
{ 

r s_phone . getField ( "rec_id" , strRecId) ; 
lRecId = atol (strRecId . c_str ()) ; 

} 

//update Benefits phone 
rs_phone . clearParms ( ) ; 
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rs__phone . setRecordSetToNull { ) ; 
rs_phone . setAct iveCommand ( "cmdUpdate" ) ; 

rs_phone . set Parameter ( "cpi_id" , _variant_t ( 1 Company Cpild ) ) ; 

rsjphone . set Parameter ( "number" , _variant_t ( str Phone Benef its . c_str ( ) ) ) ; 

rs_phone . setParameter ( "purpose" , _variant_t ("BENEFITS")); 

rs_phone . setParameter ( "active_sw" , _variant_t ("1")); 

rs_phone . setParameter ( "audit_id" , _variant_t (lAuditld)); 

if (IRecId) 

rs_phone . setParameter ( "rec_id" , _variant_t (IRecId) ); 

if ( (fSuccess = pconn->execute (rs_phone ) ) == false) 
{ 

m_emLast . setError (pconn->ge tLastError ( ) ) ; 
throw fSuccess = false; 

) 



//get. rec_.id for Other phone 
IRecId - 0; 

rs_phone . clearParms ( ) ; 
rs_phone . setRecordSetToNull ( ) ; 

rs_phone . set Act iveCommand { " cmd Fetch Re cor d IdBy Pu r pos e " ) ; 
rs_phone . setParameter ( "cpi__id" , _variant_t ( ICompanyCpild ) ) ; 
rs_phone. setParameter ("purpose", _variant_t ("OTHER")); 
rs_phone . setParameter ( " line_t ype " , __var iant_t ("Voice") ) ; 
if {{fSuccess = pconn~>execute (rs_phone ) ) == faJse) 
{ 

m_emLast . setError (pconn->ge tLastEr r or ( ) ) ; 
throw fSuccess = false; 

} 

if ( ! rs_phone . isEmpty ( ) ) 
{ 

r s_phone . getField { "rec_id" , strRecId) ; 
IRecId = atol (strRecId . c_str ()) ; 

} 

//update Other phone 

r s_phone .clearParms { ) ; 

rs_phone . setRecordSetToNull ( ) ; 

r s_phone . setAct iveCommand ( "cmdUpdate" ) ; 

rs__phone . setParameter ( "cpi_id" , _variant_t (ICompanyCpild ) ) ; 

r s_phone . setParameter ( "number" , _variant_t ( s tr PhoneOther . c_str ( ) ) ) ; 

rs_phone . setParameter ( "purpose" , _variant_t ("OTHER")); 

r s_phone . set Parameter ( "active^sw" , _variant_t ("1")); 

rs_phone . setParameter ( "audit_id" , _variant__t (lAuditld)); 

if (IRecId) 

rs_phone . setParameter ( "rec_id" , _variant_t (IRecId)); 

if {(fSuccess = pconn->execute (rs__phone) ) == false) 
{ 

m_emLast . setError (pconn~>getLastEr r or {) ) ; 
throw fSuccess = false; 

} 

/ + Ar ■* * * \ t •* * * * H- *■ •*• +:•*■*■■* * * \- + v + +■ r * + ■*. r •*- + * * «■ t ■*• * '.' + •* *: ■* «■ -i *: r v * +. -v r ■«• * ■*■ * •+ * + *■ •> * » / 

// Update the Subsscraber and the Insurance information 

//////////////////////////////// ////////////////////// /te 

/// 

// Identify the Type of Insurance updation. 

// If user is dependent, then update subscriber info. 

// If user is self insured, then subscriber info is actually user info, so update * 
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/// 



long UnsuranceRecId, llnsuredld; 
bool fUpdateData = false; 

int nSwitchld - 0; 

const int nSelfToSelf = 1; 

const int nDependent ToDependent - 2; 

const int nSel f ToDependent = 3; 

const int nDependentToSelf - 4 ; 

//set proper insurance updation switch 
if {f Self Insured && ! f SubldPresent ) 
if {! f Self Insured f SubldPresent ) 
if (fSelf Insured && f SubldPresent ) 
if (! f Self Insured ! f SubldPresent } 



nSwitchld = nSelfToSelf; 
nSwitchld = nDependentToDependent ; 
nSwitchld = nDependentToSelf; 
nSwitchld = nSel f ToDependent ; 



switch (nSwitchld) 
{ 

case nSelfToSelf: 
{ 

//subscriber id not present : previously user was self insured 
//and now user is still self insured 

//update user insured table record, 
llnsuredld = ICpild; 
llnsura nee Redd = UnsRecId; 
fUpdateData = true; 

break ; 

} 

case nDependentToDependent: 
{ 

/ / subs c r i be r _ i. d present : previously user was dependent 
//and now user is still dependent . 

//update subscriber insured record and user dependent record 
llnsuredld = ISubCpild; 
UnsuranceRecId = UnsRecId; 
fUpdateData = true; 

b r e a k ; 

} 

case nSelf ToDependent : 
{ 

//subscriber id not present : previously user was self insured 
//but now user is dependent 



//delete user record from insured table. 

r s_insured .clearParms () ; 

rs_insured. se tRecordSe tToNull ( ) ; 

rs_insured . se t Act iveCommand { " cmd Delete " ) ; 

r s_insured . setParameter ( ,T cpi_id" , _variant_t (ICpild)); 

r s_insured . set Parameter ( "rec_id" , _variant_t (UnsRecId)); 

if ( ! pconn->execute (rs_insured) ) 

{ 

m_emLast . setError (pconn->getLastErr or ( ) ) ; 
throw f Success = false; 

} 
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// fetch new cp.i._ id 
ISubCpild = getNewCpild { ) ; 
if {! ISubCpild) 
{ 

m_emLast . setError ( "Unexpected condition!!! Cannot get new cpi id for * 
subscr iber !!!"); 

throw fSuccess = false; 

) 

char szBuf f er [20] ; 

string strSubCpild = "cpi"; 

strSubCpild += 1 toa ( ISubCpild, szBuffer, 10); 

//insert new record in cpi_master 
rs_cpi_master . clear Par ms ( ) ; 
rs_cpi__raaster . setRecordSetToNull ( ) ; 

rs_cpi_master . set Act iveCommand { "cmdlnser t Empty Record " ) ; 

r s_cpi_master . set Parameter { "cpi_id" , _variant_t (ISubCpild) ) ; 

r s_cpi_master . setParameter { "cpi_text_id" , _variant_t ( str SubCpi Id . c_s tr 



0 ) ) 



rs_cpi_master . setParameter ( "audit_id" , _variant_t (lAuditld)) 

if ( ! pconn->execute { r s_cpi jmaster ) ) 

{ 

m_emLast . setError (pconn->getLastError { ) ) ; 
throw fSuccess = false; 

} 

//create insurance records, 
llnsuredld = ISubCpild; 
UnsuranceRecId = 0; 
fUpdateData = false; 

break ; 



case- nDependentToSelf : 
{ 



(lCpild) ) 



/ /subscribe r_id present : previously user was dependent: 
//'but now user is self insured 

//make sure subscriber is not: referenced by other users 

r s_insured_dependents . clear Par ms ( ) ; 

r s_insured_dependents . setRecordSetToNull ( ) ; 

r s_insured_dependents . setActiveCommand ( "cmdCheckRef erenceExis t " ) ; 
rs_insured_dependents . setParameter { "insured_cpi_id" , _variant_t (ISubCpild) ) wf 

r s_insured_dependents . setParameter { "dependent_cpi__id" , _var iant_t ^ 

if ( ! pconn->execute (rs_insured_dependents } ) 
{ 

m_emLast . setError (pconn->getLas tError { ) ) ; 
throw fSuccess = false; 

} 

//if subscriber is not referenced then delete the subscriber 

if ( r s_insured_dependents . isEmpty ( ) ) 

{ 

//delete subscriber info from cpi master 

//[it will also deletes insut ed_dependen t table record] 

rs_cpi_master . clearParms ( ) ; 

rs_cpi_master . setRecordSetToNull ( ) ; 

rs_cpi_master . setActiveCommand ( "cmdDelete" ) ; 
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r s_cpi_master . setParameter ( "cpi__id M , _variant_t (lSubCpild) 

if { ! pconn->execute ( r s_cpi_master ) ) 

{ 

m_emLast . setError (pconn~>getLastErr or ( ) ) ; 
throw f Success = false; 

} 



else 
I 



(lSubCpild) ) 
(lCpild) ) ; 



//delete only the insure d __depe nd.e n t record. 

rs_insured_de pendents . clear Par ms ( ) ; 

r s_insured_dependents .setRecordSetToNullO ; 

r s_in sure d_de pendent s . se tAct i veCommand ( "cmdDelete" ) ; 

r s_insured_dependents .setParameter { " insured_cpi_id" , _var iant_t 

r s_in sure d_de pendents . setParameter ( "dependent_cpi_id" , _var iant_t 

if ( !pconn->execute ( r s_insured_dependen t s ) ) 
{ 

m_emLast . setError ( pconn~>ge tLastEr r or ( ) ) ; 
throw fSuccess = false; 

) 



} 



//create user insured record 

//[pass cpi id and insured_id as same to create insured table record] 
//lSubCpild - 0; 
llnsuredld = lCpild; 
UnsuranceRecId = 0; 
fUpdateData = true; 

break ; 



default: 
{ 



//execution shouldn't come here, 
llnsuredld = 0; 
UnsuranceRecId = 0; 
fUpdateData = falser- 
break; 



} //end of -switch 



///////////////////////////////////////////////////////////////// 
//create/update user /subscr ibex name 6 phone records. 
///////////////////////////////////////////////////.'///////////// 
long INameRecId = 0; 
long lPhoneRecId = 0; 

//get the record id's for updating the records. 

if (fUpdateData) 

{ 

//get rec__id for name record 
INameRecId = 0; 
rs_name . clearParms ( ) ; 
rs_name . setRecordSetToNul 1 ( ) ; 

r s_name . setActi veCommand ( " cmdFetchRecordld " ) ; 

rs_name . setParameter ( "cpi__id" , _variant_t (llnsuredld)); 

if ((fSuccess = pconn->execute (rs_name) ) == false) 

{ 

m_emLast .setError (pconn->get Last Err or ( ) ) ; 
throw fSuccess = false; 

} 

if ( ! r s_name . isEmpt y ( ) ) 
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{ 

rs_name . get Fie Id ( "rec_id" , strRecId) ; 
INameRecId = atol { strRecId . c_str ()) ; 
rs_name . se tRecordSetToNull { ) ; 

} 

//get rec_id for HOME phone record 
lPhoneRecId = 0; 
rs_phone . clear Parms {) ; 
rs_phone . se tRecordSetToNull { ) ; 

r s_phone . se t Act ive Command ( "cmdFe ten Re cor dldBy Pur pose " ) ; 

r s_phone . set Parameter ( "cpi_id" , _variant_t (llnsuredld)); 

rs^phone . setParameter ( "purpose" , _variant_t ("Home")); 

r s_phone . setParameter ( "line_type" , _variant_t ("Voice")); 

if ({f Success = pconn->execute (r s_phone ) ) == false) 

{ 

m_emLast . setError ( pconn~>getLas tError ( ) ) ; 
throw f S u c c e s s = false; 

) 

if ( ! rs_phone . isEmpty ( ) ) 
{ 

rs_phone . get Field ( "rec_id" , strRecId) ; 
lPhoneRecId = a tol ( strRecId . c_str ()) ; 
rs_phone . setRecordSe tToNull ( ) ; 

} 

} 

//update name record 

if (! strSubLastName . empty () ) 

{ 

r s_name . clear Parms ( ) ; 

rs_name . se tRecordSetToNull ( ) ; 

r s__name . se tAct i veCommand ( " cmdUpdate " ) ; 

rs_name . set Parameter { "cpi_id" , _variant_t (llnsuredld)); 
r s_name . set Parameter ( M active_sw" , _variant__t ("1")); 

rs_name . setParameter ( "last_name" , _variant_t (strSubLastName . c_str ( ) ) ) ; 
r s_name . setParameter ( "middle_name " , __variant_t ( s trSubMiddleName . c_str ( ) ) ) ; 
r s_name . set Parameter ( " f irst_name" , _variant_t ( str Sub Firs tName . c_str ( ) ) ) ; 
r s_name . set Par ameter { "audit_id" , _variant_t (lAuditld)); 

if (INameRecId) 

rs_name . setParameter ( "rec_id" , _variant_t (INameRecId)); 

if ( (fSuccess = pconn->execute ( r s_name ) ) == false) 
{ 

m_emLast .setError (pconn->getLas tError ( ) ) ; 
throw fSuccess = false; 

} 

} 

//update HOME phone record • 
rs_phone . clearParms ( ) ; 
r s_phone . se tRecordSetToNul 1 ( ) ; 
rs_phone . se tActiveCommand ( "cmdUpdate" ) ; 

r s__phone . setParameter ( "cpi_id " , _variant_t (llnsuredld)); 
rs_phone . setParameter ( "number" , _variant_t ( str Sub Phone . c_str ( ) ) ) ; 
rs_phone . set Parameter ( "active_sw" , _variant_t ("1")); 
rs_phone . setParameter ( "audit_id" , _variant_t (lAuditld) ) ; 

if (lPhoneRecId) 

rs_phone . setParameter ( "rec_id", _variant_t (lPhoneRecId)); 

if ({fSuccess = pconn->execu te ( r s_phone ) ) -- false) 
{ 

m_emLas t .setError (pconn~>getLastError () ) ; 
throw fSuccess - false; 
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} 

/////////7/V^-'/ //////////7 ////////////////////////////////// ////// 
//create/update insurance records. 
//////////////////////////////////////////// 

rs_in sura nee . clear Par ms ( ) ; 

r s_in sura nee . setRecordSetToNull ( ) ; 

rs_in sura nee . set Active Command { "cmdUpdate " ) ; 

rs_insurance . setParameter ( "cpi_id" , _variant_t (lCpild) ) ; 

rs_in sura nee . set Parameter ( "insured_id" , _variant_t (llnsuredld) ) ; 

if ( UnsuranceRecId) 

rs_insu ranee . set Parameter { "rec_id" , _variant_t (UnsuranceRecId) ) ; 
rs_insurance . setParameter ( "active_sw" , _variant__t ("1")); 
r s__in sura nee . setParameter ( "ins_co_id" , _var iant_t ( ICompanyCpild ) ) ; 
rs_insu ranee . setParameter ( "group_name " , _variant_t ( strGroupName . c_str { ) ) ) ; 
rs_insurance. setParameter ( "gr oup_n umber " , _variant_t { s trGroupN umber . c_str { ) ) ) ; 
rs_in sura nee . setParameter ( "pol i cy_number " , _variant_t ( str PolicyNumber . c_str ( ) ) ) ; 
rs_insu ranee . setParameter ( " ins_plan_code " , _variant_t ( strPlanCode . c_str ( ) ) ) ; 
rs_insurance. setParameter ( "plan_t ype_code " , _variant_t (strPlanType . c_str ( ) ) ) ; 
rs insur ance . setParameter ( "insured_relationship" , _variant_t ( strSubRelationship . / 
c_str())); 

r s_insu ranee . setParameter ( "audit_id" , _variant_t ( lAuditld) ) ; 
if (dtPlanEf f ectiveDate ) 

rs_in sura nee . setParameter ( "plan_ef f__dt " , _variant__t (dtPlanEffectiveDate) ) ; 
if (lSubRelationshipId) 

rs_ insurance. setParameter ( "insur ed_relationship_id" , _variant_t ✓ 
(lSubRelationshipId) ) ; 

if ((fSuccess = pconn->execute (rs_insurance) ) ~ false) 
{ 

m_emLas t . setError (pconn->getLastError ( ) ) ; 
throw fSuccess = false; 

} 



} 

catch (bool f Error ) 
{ 

f Err or ; 

} 

cat ch (_com_er ror & e) 
{ 

m_emLast .setError (e) ; 
fSuccess - false ; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unknown exception raised. [Command : set Insurance ]") ; 
fSuccess - false; 

} 



//commie or. Roll back the transaction. 

if (pconn) 

{ 

if (fSuccess) pconn->commitTrans ( ) ; 

else pconn->rollbackTrans ( ) ; 

) 

return fSuccess; 
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if include "xc_OtherCommands . h" 
ffinclude "rs_medication . h" 

// 7/ "// 7 II 7/ 77 7 7 // 7 7 V/ V 7 7/ // 7/ 7 7 7 7/ 7/ 7 7 // 7/ 7/ 7 V/ 7 7 7 7/ '// / ////////// 
CXC_IMPLEMENT_FACTORY ( Cxc_se tMedica t ions ) 



////////\'//// ////////////////////////////////////////////, '/;//// ////// 

//Do parameter validation here 

bool Cxc_setMedica tions : : parse Parameter s () 

{ 

string strData; 

/////////////////////////////////////////////////////////////////// 
//cpi__id should be provided, 

///'//////////////////////////////////////////////////////////////// 
strData = get ParameterValue ( "cpi_id" ) ; 
if ( strData . empty {) ) 
{ 

m_emLast . setError ( "\"cpi_id\ " is a required parameter. ") ; 
return false; 

} 

/////////// ///////// n i 1 1 1 1 1 n i n n 1 1 n f n n 1 1 i n n i ! : ! n : i i ! i / 1 n i 

//Ensure description always accompanies a code id 

if (getParameterValue ( "reason" ). empty { ) && ! getParameterValue ( "reason_id" ). empty () ) 
{ 

m_emLast . setError (" \ "reason\ " is not present. Codes should be provided with code 
id."); 

return false; 

} 

return true; 

} 



//////////////////////////////// ////////////////////// 

//Execute the command. 

bool Cxc_setMedications : : execCommand { ) 
{ 

//Instantiate the s d o c omnia n d . 
Cr s_medica tion r s_medica tion ; 

//set active command 

rs_medica tion . setAct iveCommand ( "cmdUpdate" ) ; 

//update the db. 

bool f Success = executeUpdat e { r s_medication ) ; 
return fSuccess; 

} 
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#include "xc_OtherCommands . h" 
#include "rs_reminders.h" 

//////////////////////////////////////////////////////////// ///// 
CXC_IMPLEMENT_ FACTORY ( Cxc_set Reminder ) 

///////////////////////////////// ///////////////////////////////////// 

//Do parameter validation here 

bool Cxc_setReminder : : parseParameter s () 

{ 

bool fSuccess - true; 

string strData; 

// check required parameters 

strData = get Paramet erValue { " cpi_id" ) ; 

if { strData . empty () ) 

{ 

m_emLast . setError ( M V'cpi_id\ " is a required parameter."); 
fSuccess = false; 

} 

// if doing update then all the following fields are not required 
strData = getPar ameterValue { " rec_id" ) ; 
if ( JstrData .empty {) && a tol ( strData . c_str () ) != 0) 
return fSuccess; 

strData = getPar ameterValue (" frequency "} ; 

if (strData . empty ( ) ) 

{ 

m_emLast << " \r\n\ " frequency \ " is a required parameter."; 
fSuccess - false; 

} 

strData - ge tParame terValue ( " t ime_zone " ) ; 

i f (strData . empty ( ) ) 

{ 

m_emLast << " \r \n\ " t ime_zone \ " is a required parameter."; 
fSuccess = false; 

} 

strData = get ParameterValue ( " t irne_of _day " ) ; 

if (strData. empty ( ) ) 

{ 

m_emLast << " \r \n\" time_of _day\ " is a required parameter."; 
fSuccess = false; 

} 

strData - getParame terValue (" star t_date ") ; 

if (strData . empty ( ) ) 

{ 

m_emLast << "\r\n\"start_date\" is a required parameter."; 
fSuccess = false; 

} 

bool fEmail; 
bool f Voice; 
bool fFax; 

strData = get Par ameterValue (" forma t__emai 1 ") ; 
fEmail = ! strData . empty { ) strData[0] != '0'; 
strData = get Par ameterValue ( " f ormat_voice" ) ; 
fVoice - ! strData .empty ( ) strData[0] != '0»; 
strData = get Parame terVa lue (" forma t_f ax" ) ; 
fFax = ! strData . empty ( ) && strData[0] != '0'; 



if (! fEmail ! f Voice I fFax) 
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{ 

m_emLast << "\r\none of the \"format_*\" fields must be true."; 
fSuccess = false; 

} 

strData = getParameterValue { "destination" ) ; 

if ( strData . empty {) ) 

{ 

m_emLast << " \r \n\"destination\" is a required parameter. "; 
fSuccess = false; 

} 

strData = get Parame terValue ( "subject ") ; 

if (strData .empty () ) 

{ 

m_emLast << " \r \n\ "sub j ect \ " is a required parameter."; 
fSuccess = false; 

} 

strData ~ getParameterValue { "body ") ; 

if (strData . empty { ) ) 

{ 

m_emLast << " \r \n\ "body \ " is a required parameter."; 
fSuccess = false; 

} 

if ( ! fSuccess ) 

r e t u r n false ; 

return fSuccess; 



1 1 1 1 u i n 1 1 1 1 1 1 1 1 1 n ! ( f n i i n i n 1 1 1 n I n 1 1 u i n 1 1 n n n 1 1 1 i n n i n / i n 

//Execute the command. 

bool Cxc_se tReminder : rexecCommand ( ) 

{ 

//Instantiate the sac command. 
Crs_reminder rs_reminder; 

//set active command 

r s_r eminder . setActiveCommand ( "cmdPut " ) ; 

//update the do, 

bool fSuccess = executeUpdate (r s_reminder, false); 



return fSuccess; 

} 
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ff include "xc_ot her Commands . h" 

§ include "rs__address . h" 

#include "r s_company . h" 

# include " r s_cpi__ma st er . h" 



/////////// ///\'/////// /;/////////////////////////////////''/////// 

CXC_ I MPLEMENT_ FACTORY ( Cxc_se t SLMDLoca t i ons ) 

bool Cxc_setSLMDLocations : : execCommand ( ) 
{ 

bool f Success = true; 

try 
i 

Crs_address rs_address; 
Crs_company rs_company; 
Cr s_cpi_mas ter rs__cpi_master; 

string strName, strStreetl, strStreet2 / strCity, strState, strCountry, strZip; 

//'get connection 

CSdoConnection + pconn - m_pcoClient->getConnection ( ) ; 

//eztracc parameters 

if { get Parm ( "name " , strName) == false) 
{ 

m_emLast . setError ( "\"name\" is a required parameter."); 
throw fSuccess = false; 

) 

if (getParm { "street 1 " , strStreetl) == false) 
{ 

m_emLast . setError ( " Vstreetl V is a required parameter."); 
throw fSuccess = false; 

} 

if (getParm ( " zip" , strZip) == false) 
{ 

m_emLast . setError (" \ " zip\ " is a required parameter"); 
throw fSuccess = false; 

} 

//optional parameters. 
getParm ( "street2", strStreet2) ; 
getParm ( " city" , strCity); 
getParm("state", strState) ; 
get Parm { "country" , strCountry) ; 

//check if name is null, 
if ( strName . empty () ) 
{ 

m__emLast . setError ( "Parameter \"name\" is NULL."); 
threw fSuccess = false; 

} 

//check if street! is n u 1 1 . 
if ( strStreetl . empty () ) 
{ 

m_emLast . setError (" Paramter \"streetl\" is NULL."); 
throw fSuccess = false; 

} 

//check if zip is null, 
if (strZip. empty ( ) ) 
I 

m^emLast . setError ( "Parameter \"2ip\" is NULL."); 
throw fSuccess = false; 



C:\Documents and Settings\billyhe\My . . . LCServices\LCBroker\xc setSLMDLocations . cpp 



} 



2 



//get a new cpi id & audit id's 
long lAuditld = getAuditld ( ) ; 
long ICpild = ge tNewCpi Id < ) ; 
char szBuf f er [20] ; 
string strCpild = "cpi"; 

strCpild += ltoa(lCpiId, szBuffer, 10); 

if {ICpild <- 0) 

{ 

m_emLast . setErr or { "Error in cpi_id generation."); 
throw f Success = false; 

} 

//write to cpi master table. 

r s_cpi_master . setAct iveCommand { "cmdlnsertEmptyRecord" ) ; 
rs_cpi_master . set Parameter { "cpi_id", _variant_t (ICpild) ) ; 

r s_cpi_master . set Parameter { "cpi_text_id" , _variant_t ( strCpild . c_str ( ) ) ) ; 
rs_cpi_master . set Parameter ( "audit_id" , _variant_t { lAuditld) ) ; 
if (pconn->execute ( rs_cpi_master ) == false) 
i * 

m_emLast . setError (pconn->ge tLastEr ror { ) ) ; 

throw f Success = false; 

} 



rs__address . setAct iveCommand ( "cmdUpdate" ) ; 

rs_address. set Parameter { "cpi_id" , _variant_t (ICpild) ) ; 

rs_address . set Parameter ("streetl", _variant_t (strStreetl. c_str ( ) ) ) ; 

rs_address . set Parameter ("street2", _variant_t {strStreet2. c_str ( ) ) ) ; 

rs_address . set Parameter ( "city" , _variant_t ( strCi ty . c_str { ) ) ) ; 

rs__address . set Parameter ( "state" , _variant__t (strState. c_str ( ) ) ) ; 

rs_address . set Parameter ( "country" , _variant_t { strCountry . c_s tr ( ) ) ) ; 

rs_address . set Parameter ( "zip" , _variant_t { strZip . c_str ( ) ) ) ; 

rs_address.setParameter { "audit_id" , _variant_t ( lAuditld) ) ; 

if (pconn->execute { rs_addr ess ) =- false) 

{ 

m_emLast . setError (pconn->getLastError () ) ; 
throw f Success = false; 

} 

//write to company table. 

rs__company . setActive Command ( "cmdUpdate" ) ; 

rs_company . set Parameter ( "cpi_id" , _variant_t (ICpild) ) ; 

rs_company . set Parameter ( "name" , __variant_t { strName . c_str ( ) ) ) ; 

rs_company . set Parameter ( "audi t_id" , _variant_t ( lAuditld) ) ; 

if (pconn->execut e ( r s_company ) == false) 

{ 

m_emLas t .setError (pconn->getLastError{) ) ; 
throw f Success = false; 

} 

} 

catch (bool fError) 
i 

fError ; 

} 

catch (_com_er ror & e) 
{ 

m_emLast . setError (e ) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unkown exception raised. [Command : se tSLMDLocat ions ]") ; 
fSuccess = false; 
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return fSuccess; 

} 



C:\Documents and Settings\billyhe\My . . . \LCServices\LCBroker\xc setSurgerylnf o . cpp 



1 



♦j include " xc_OtherCommands . h" 
# include " r s_surger y . h" 

/VV///////////V //////////////////////////////////// /'//// ///////// 
CXC_IM PL EMENT_ FACTORY (Cxc_se tSurgerylnf o) 



////////////////////////////////////////////////////////////////////// 

//Do parameter validation here 

bool Cxc_setSurgeryInf o : : parseParameters 0 

{ 

string strData ; 

/////////////////////////////////////////////////////////////////// 
//cpi_id should be provided. 

///////////////////>/////////////////////////////////////////////// 
strData = get ParameterValue ( M cpi_id" ) ; 
if { strData . empty () ) 
{ 

m_emLast . setError ( " \"cpi_id\ " is a required parameter."); 

return false; 

} 

///////////// ////////////////////////// //////////////////////////// 
//Ensure description always accompanies a code id 

/ / / / /// / /// / // // /// /// ///'// // /// ///////////// /7 ///// ////////////// / 

if (get ParameterValue ( "surgery_type" ). empty { ) && ! get ParameterValue (" surger y_type_id" ) 

. empty ( } ) 

{ 

m_emLast . setError ( "\"surgery_type\" is not present. Codes should be provided with 
code id . " ) ; 

r e t. u r n f a 1 s e ; 

) 

return true; 

} 



////////////////////////////////////////////////////////////////////// 
//Execute the command. 

bool Cxc_setSurger ylnf o : : execCommand { ) 
{ 

//.Instantiate the sdo command. 
Crs_surgery rs_surgery; 

//net active command 

r s_surgery . set Act iveCommand ( "cmdUpdate" ) ; 

//update the d b . 

bool f Success = executeUpdate (rs^surgery) ; 
return f Success; 

} 
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^include "xc_OtherCommands . h" 
#include " r s_t her apy . h" 

//////////////////////////////////////////////'/////////////////// 
CXC_IMPLEMENT_ FACTORY <Cxc_setTherapyInf o) 



////// /V // ///////// /V // ////////////////////////////////////////// / 

//Do parameter validation here 

bool Cxc_setTherapyInf o : : parseParameter s () 

{ 

string strData; 

//cpi_id should be provided. 

/////////////////////////////////////////////////////////•///////// 
strData = get Pararoet erValue { "cpi_id" ) ; 
if ( strData . empty {) ) 
{ 

m_emLast . setError { " \ "cpi_id\" is a required parameter."); 
return false; 

} 

/////////////////////////////////////////////////////// ////// 
//Ensure description always accompanies a code id 

if (getParameterValue ( "therapy_type" ). empty ( ) && ! get Parame terValue { "therapy_type_id" ) * 

.empty ( ) ) 

{ 

m_emLast . setError ( "\"therapy_type\" is not present. Codes should be provided with ^ 
code id. ") ; 

return false; 

} 

if (getParameterValue { "reason" ). empty ( ) &£ ! get ParameterVa lue (" reason_id" ). empty {) ) 
{ 

m_emLa st . setError { " \ "reason\ " is not present. Codes should be provided with code * 
id."); 

return false; 

} 

return true; 

} 



////////////////////////////////////////////////////////////////////// 
//Execute the ccui\(\and. 

bool Cxc_setTherapyInf o : : execCommand { ) 
{ 

//Instantiate the sdo command. 
Crs_therapy rs_therapy; 

rs_therapy . se tAct iveCommand ( "cmdUpdate" ) ; 

//update the db. 

bool f Success = execu teUpdate (rs_therapy) ; 
return fSuccess; 

} 



C:\Documents and Settings\biIlyhe\My . . . \LC Broker XxcsetU nregisteredUser . cpp 



1 



# include "xc__Ot her Commands . h" 

# include " r s_unr egistered_user , h" 

///////////////////////////////////////////////////////////////// 
CXC_ I MPLEMENT_ FACTORY (Cxc_setUnregisteredUser ) 

bocl Cxc_setUnregis teredUser : : execCommand ( ) 
{ 

bool fSuccess = false; 

try 
{ 

Cr s_unregistered_user rsUnregUser; 
string strUserld; 

//get the user_id. 

if {getParm ( "user_id" , strUserld) == false) 
{ 

m_emLast . setError ( " \"user__id\" is a required parameter."); 
throw fSuccess = false; 

} 

//get db connection 

CSdoConnect ion * pconn - rnjpcoCl ient->ge tConnec t ion ( ) ; 

//get current date 
DATE dtCurrentDate; 

dtCurr entDate = (DATE) COleDateTime : : GetCurr en tTime ( ) ; 
long lAuditld = getAudit Id ( ) ; 
if (UAuditld) 
{ 

m_emLast . setError ( "Unexpected error. Could not get new audit id."); 
throw fSuccess = false ; 

} 

long lUnregUserld = atol ( strUserld . c_str ()) ; 

//////////////////////////////////////////////////////////////// 
// Check if user id is a valid id. 

f /// //<'/. '///////ft///////////////////////////////////////. '////// 

rsUnregUser. setAct iveCommand ( " cmdCheckldExi s t " ) ; 

rsUnregUser. set Parameter ( "user_id" , _variant_t ( lUnregUser Id) ) ; 

if (pconn->execute (rsUnregUser ) == false) 

{ 

m_emLast . setError (pconn->getLastError ( ) ) ; 
threw fSuccess = false; 

} 

//////////////////////////////////////////////////////////////// 
// Fetch new user id if its invalid. 

//////////////////////////////////////////////////////////////// 

if ( rsUnregUser . is Empty () ) 
{ 

//get new i. d . 

lUnregUserld = getNewUnregUser Id ( ) ; 

if ( ! lUnregUserld) 

{ 

m_emLast . setError ( "Unexpected error. Could not get new unregistered user 

id."); 

throw fSuccess = false; 

) 

//update the unreg user record. 
rsUnregUser . clear Parms ( ) ; 
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rsUnregUser. setRecordSetToNull { ) ; 
rsUnregUser. se tActiveCommand { "cmdUpdate" ) ; 

rsUnregUser . set Par ameter ( "user_id" , _variant_t (lUnregUserld) ) ; 
rsUnregUser . setParameter { "ef f ect i ve_dt " , _variant_t {dtCurrentDate ) ) ; 
rsUnregUser . setParameter { "access_dt " , _variant_t {dtCurrentDate ) ) ; 
rsUnregUser. setParameter { "audit_id" , _variant_t ( lAudi tld ) ) ; 
if ((fSuccess = pconn->execute (rsUnregUser ) ) == false) 
{ 

m_emLast . setError (pconn->getLa stError { ) ) ; 
throw fSuccess = false; 

} 

} 

e 1 s e 
{ 

//update the unreg user access_dt 
rsUnregUser. clear Pa rms ( ) ; 
rsUnregUser. setRecordSetToNull ( ) ; 
rsUnregUser. se tActiveCommand ( "cmdUpdate " ) ; 

rsUnregUser. setParameter ( "user_id" , _variant_t ( lUnregUser Id) ) ; 
rsUnregUser . setParameter ( "access_dt" , _variant_t {dtCurrentDate ) ) ; 
rsUnregUser . setParameter ("access^count^sw", _variant_t ("1") ) ; 
rsUnregUser . setParameter ( "audi t_id" , _variant_t (1 Audit Id ) ) ; 
if ((fSuccess = pconn->execute (rsUnregUser ) } false) 
{ 

m_emLast . setError (pconn->getLastEr ror ( ) ) ; 
throw fSuccess = false; 

} 

} 



//////////////////////////////////////////////////////////////// 
if construct the XML result: . 

// Pass back the existing user id or the new user id. 

////// ////////////// //////// /////// /////////// ///7/ /////// ////// 

m_pdocResults = new CXmlDocument { "<se tUnregis teredUser / >" ) ; 
m_pdocResults->addChild ( "user_id" , _variant_t ( lUnregUser Id) ) ; 



catch (bool fError) 

f Error ; 
ca ten (_com_error & e) 

m_emLast . setError (e) ; 
fSuccess = falser- 
catch ( ... ) 

m_emLast . setError ( "Unkown exception raised. [Command : se tUnregisteredUser ]") ; 
fSuccess = falser- 



return fSuccess; 

} 
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It include "xc_OtherCommands . h" 
ffinclude "rs_cpi__master . h" 

////// /////////////////////////////////////////////////// //////// 
C>' C_ I M PL EMENT_ FACTORY { Cxc_se tUserBiographics ) 



/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ////////// / / / / / / ./' / / / / / / / / / /' / / / / / / / 
//Do parameter validation here 

bed Cxc_setUserBiographics : : parseParameter s () 
{ 

string strData; 
bool fPresent; 



/////////////////////////////////////////////////////////////////// 
//cpi_id should be provided. 

/ / / / / / / / / / / / / / / / / / / / / /' /////////'////////////// / / / / / / / / / / / ////////// /' 

strData = get Parameter Value ( "cpi_id" ) ; 

if ( strData . empty () ) 

{ 

m_emLast . setEr ror ( " \ "cpi_id\ " is a required parameter."); 

return false; 

} 

///////////////////////////////////////////// 

//last name should be provided if any name components are provided 
//////7// ///// ///////////////// //////////////////////////////////// 

//check if last_name provided 
fPresent = false; 

strData = ge tPar ameterValue ( " las t_name" ) ; 

if ( strData . emptv () ) 

{ 

//not provided. . .check if any name components provided 

if (! getParameter Value ( " firs t_name" ). empty () ) fPresent = true; 

if (! getParameterValue ( "middle_name " ). empty {) ) fPresent = true; 

if (! getParameterValue ( "nick_name" ). empty () ) fPresent = true; 

if (! getParameterValue ( "prefix" ). empty () ) fPresent = true; 

if (! getParameterValue ( "suffix" ). empty {) ) fPresent = true; 

if (fPresent) 
I 

m_emLast . setError ("\"last_name\" is required, if any other name components are/ 
provided . " ) ; 

return false; 

} 

} 

/ /emer oenc v_ias t name should be provided if any emergency name components are provided 

//////}// /'//////'// /////// ////// / 1 n / i 1 1 u n n n 1 1 n n i n n n n n n n i u i f 1 1 n i ) n n n i 

//check if lastjiame provided 
fPresent - false; 

strData = getParameterValue ("emergency_last_name" ) ; 

if ( strData . emptv () ) 

{ 

//nor. provided ... check if any name components provided 

if (! getParameterValue ( "emergency__f irst_name" ). empty {) ) fPresent = true; 
if ( ! ge tParameterValue ( "emer gency_middle_name "}. empty () ) fPresent = true; 



C:\Documents and Settings\billyhe\My . . . \LCBroker \xc setUserBiographics . cpp 



2 



if (f Present) 
{ 

m_emLast . setError ( " \ "emergency_la st_name \ " is required, if any other emergency/ 
name components are provided."); 
return false ; 

} 

} 

////VV //////////////////////////////////////////////// ///////////// 

//Code ID's should be provided if any codes are provided 

/////////////\ / //////////////// //'/// /////////////////// ///////////// 

if (! get Par ameterValue ( "state" ). empty ( ) && getParameterValue ( "state_id" ). empty () ) 

{ 

m_ernLast . setError (" \ "state_id\ " is not present. Codes should be accompanied by its/ 
CodelD."); 

r e t u r n false; 

} 

if {! getParameterValue ( "gender "). empty { ) && get ParameterValue ( "gender_id" ). empty () ) 
{ 

m_emLast . setError ( "\"gender_id\" is not present. Codes should be accompanied by / 
its CodelD. " ) ; 

return false; 

} 

if (! get ParameterValue { "religion" ). empty { ) && getParameterValue ( "religion_id" ). empty / 

( ) ) 

{ 

m_emLast . setError (" \ "religion_id\ " is not present. Codes should be accompanied by / 
its CodelD. " ) ; 

return false; 

} 

if (! get ParameterValue ( "mar ital_status "). empty ( ) && getParameterValue ( / 

"mar i t a l_s tatus_id" ) . empty ( ) ) 

{ 

m_emLast . setError (" \ "raarital_status_id\ " is not present. Codes should be / 
accompanied by its CodelD."); 

return false; 

} 

if {! getPar ameterValue ( " emergency_r ela tionship" ). empty ( ) && getParameterValue ( / 

"emergency_rela tionship_id" ) . empty () ) 

{ 

m_emLast . setError {" \ "emergency_rela tionship\ " is not present. Codes should be / 
accompanied by its CodelD."); 

return false; 

} 

if (! getParameterValue ( "country" ). empty { ) && getPar ameterValue (" count ry_id" ). empty () ) 
{ 

m_emLast . setError {" \ "country_id\ " is not present. Codes should be accompanied by / 
its CodelD. "} ; 

return false; 

} 

if {! get Par ameterValue { "dl_state" ). empty ( ) && get ParameterValue { "dl_state_id" ). empty / 

()) 

{ 

m_emLast . setError (" \ "dl_state_id\ " is not present. Codes should be accompanied by / 
its CodelD. ") ; 

return false; 

) 

if (! getParameterValue ( "county" ). empty { ) && getParameterValue ( "county_id" ). empty {) ) 
{ 

m_emLast . setError { "\ "county_id\" is not present. Codes should be accompanied by / 
its CodelD. " ) ; 

return false; 

} 

if ( 'getParameterValue ("race") .empty () && get ParameterValue < "race_id" ) .empty {) ) 
{ 

m_emLas t . setError (" \ " race_id\ " is not present. Codes should be accompanied by its *t 
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return true; 

) 

//// //V//////////V/// ///////// /V////////V//////VV//////V/// /////////// 
//Execute the command. 

bool Cxc_setUserBiographics : : execCommand ( ) 
{ 

//Instantiate the 3do command. 
Cr s_cpi_master r s_cpi_master ; 



//set active command 

rs_cpi_master . se tActiveCommand ( " cmdSetUser Da ta " ) ; 
//update the db . 

bool fSuccess « executeUpdate { r s_cpi_ma s t er ) ; 
return fSuccess; 

} 
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^include "rs_cpi_mas ter . h" 
If include "rs_address . h" 
jfinclude "rs_hcp.h" 
#include "rs_name.h M 
^include "rs__person . h" 
^include "r s_encounter . h" 

//////////////////////////////////////////// // //////// /////////// 
CXC_ I MPLEMENT_ FACTORY (Cxc_setUser Physicians ) 



////////////////////////////////////////////////////////////////////// 

//Execute the command. [Call execute and write processing cede in process Da ta {} j 

////////////////////////////////////////////////////////////////////// 

bool Cxc_setUser Physicians : : execCommand ( ) 

{ 

return execute () ; 

} 



////////////////////////////////////////////////////////////////////// 
//Do parameter validation here 

//////////////////////////////////'//////////////////////////////////// 

bool Cxc_setUser Physicians :: parse Parameter s {) 

{ 

string strData; 
bool fPresent; 

/////////////////////////////////////////////////////////////////// 
//cpi_id should be provided. 

/////// - ///////// /y /////// • /////////////////////////////////////// / 

strData = get Parame terValue ( "cpi_id" ) ; 

if (strData . empty () ) 

{ 

m_emLast . setError ( "\ "cpi_id\ " is a required.")/ 
return fa 1 s e ; 

} 

///////V////// / //\' / ////// //////////////////////\///////// /////////// 
//Physician last_name should be provided if any name components are provided 
/////////////////////////////////////////////////////////////////// 

//check if last__name provided 
fPresent = false ; 

strData = ge t Paramet erValue ( "las t_name " ) ; 

if (strData . empty () ) 

I 

//net provided ... check if any name components provided 

if (! getParame terValue ( "firs t_name" ). empty () ) fPresent = true; 
if (! getPar ameterValue ( "middle_name " ). empty {) ) fPresent - true; 
if (fPresent) 
{ 

m_emLast . setError ( " \ "las t_name\ " is required, if any other name components are/ 
provided . " ) ; 

return false; 

} 

} 

/////////////////////////////////////////////////////////////////// 

//Code ID' 5 should be provided if any codes are provided 

///////// //////////////// ////////// //////////////////////////////// 

if {! get Parame terValue ( "of fice_state" ). empty ( ) && get ParameterValue ( "of f ice_s t at e_id " ) / 
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. empty ( ) ) 
{ 

m_emLast . setError { "\ "of fice_state_id\ " is not present. Codes should be accompanied 
by its CodelD. ") ; 
return false; 

} 

if (! get ParameterValue ( "of f ice_countr y " ). empty ( ) && get ParameterValue ( 

"of f ice__country_id" ) . empty () ) 

< 

m_emLast . setError { "\ "of f ice_coun t r y_id\ " is not present. Codes should be ✓ 
accompanied by its CodelD. "); 

return false; 

} 

if (! get ParameterValue ( "gender "). empty ( ) && getParameterValue ( "gender_id" ). empty {} ) 
{ 

m_emLast . setError ( "\"gender_id\" is not present. Codes should be accompanied by 
its CodelD. ") ; 

return false; 

) 

if (! getParameterValue {"specialty" ). empty ( ) getParameterValue (" specialty_id" ). empty * 

{ ) ) 

{ 

m_emLast . setError ( "\ "specialty_id\" is not present. Codes should be accompanied by* 
its CodelD. " ) ; 
return false; 

} 

/ / / / / / / / / / / / / / / / /////////////////////////////////////////////////// 
//Physician .rec id s. physician id, both should exists if any one is provided. 
////////////// //'////// /////////?/ ////////////////////////////////// 

if {! getParameterValue ( "rec_id" ). empty { ) get ParameterValue { "physician_id" ). empty {) ) 

{ 

m_emLast . setError ( "\ "physician_id\ " required if \"rec_id\" is provided."); 
return false; 

} 



return true; 

} 



////////////////////////////// //////// //////////////////////////////// 
// Do Data processing here. 

// [called from the execute method for each row of data] 

//' Functions ... bv parameters provided 
// 

// - no physician id 6 no rec id ; create physician and hep link info. 
// - physieian_id s rec_id : update physician and hep link info. 

// - physician id s no rec id : physician present, so update physician & create hep link 
info. 

// - no physician id & rec id : invalid condition. 

/ / 

/////////////////////////////////////////// /////////////////////////// 

bool Cxc_setUser Physicians :: processData () 

{ 

bool fSuccess = true; 
CSdoConnection * pconn = NULL; 

try 
{ 

Crs_name rs_name; 

Crs_address rs_address; 

Crs_person rs_person; 

Crs encounter rs encounter; 
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Crs_hcp rs_hcp; 

Cr s_hcp__of f ice rs_hcp__of f ice ; 

Cr s_cpi_master rs_cpi_master ; 

Cr s_hcp_specialty rs__hcp_specialty ; 

Cr s_encounter_hcp r s_encounter_hcp ; 

string strHcpSpecialty , s trHcpLastName , strHcpFirstName, s t rHcpMiddleName , 
StrHcpGender ; 

string strHcpEmailAddress, strOffName, s trOf f MgrName , strHcpType ; 

string strOff Zip, s trOff Country , strOffHours, strOff Phone, strOf fMgrPhone; 

string strOff Street 1 , strOff Street 2 , strOffCity, strOffState; 

long lCpild, lHcpRedd, lHcpCpild, lHcpActiveSw, lHcpTypeld, lHcpGender Id, * 
lHcpSpecialtyld; 

long lOffStateld, lOf f Countr yld ; 

/ / a e t c h e paramete r s 

lCpild = atol { getPar ame terValue ( "cpi_id" ) . c_s tr { ) ) ; 
/* identifies the record in encounter_hcp table */ 
lHcpRedd - atol (getParameterValue ( "rec_id" ) . c_str ( ) ) ; 
lHcpCpild = atol ( getParameterValue ( "physician_id" ). c_str {)) ; 
lHcpActiveSw = atol (getParameterValue { "active^sw" ). c_str {)) ; 
strHcpLastName = get Parame terValue ( "last_name" ) ; 
StrHcpFirstName = getParameterVa lue ( " f ir s t_name " ) ; 
strHcpMiddleName = getParameterValue ( "middle^name" ) ; 
strHcpType ~ getParameterValue ( "physician_t ype ") ; 

lHcpTypeld = atol (getParameterValue ( "physician_type_id" ) . c_str ( ) ) ; 
strHcpGender = getParameterValue ( "gender " ) ; 

lHcpGenderld = atol (get Par ameterValue { "gender^id" ). c_str ()) ; 
strHcpSpecialty - getParameterValue (" specialty ") ; 

lHcpSpecialtyld = atol (getParameterValue ( " special ty_id" ) . c_str ( ) ) ; 

strHcpEmailAddress = getParameterValue ( "email_addr ess" ) ; 

strOffName = get Parame terVa lue ( "of fice_name ") ; 

strOff MgrName = getParameterValue ( "of fice_manager" ) ; 

strOf fMgrPhone = get ParameterValue ( "of f ice_manager_phone" ) ; 

strOff St reet 1 = getPar ameterValue ( "of fice_streetl ") ; 

strOf f St reet2 = get ParameterVa lue ( "of f ice_street 2 " ) ; 

strOffCity = ge t Par amet erVa lue ( "of f i ce__ci ty" ) ; 

strOffState = get Parame terValue ( "of f ice_sta te" ) ; 

lOf f Stateld = atol (getParameterValue ( "of f ice_sta te_id" ) . c_str ( ) ) ; 

strOffZip = getParameterValue ( "of fice_zip" ) ; 

strOf f Country = get Parame terValue ( "of f ice_coun t ry" ) ; 

lOff Count ryld = atol (getParameterValue ( "of f ice_countr y_id" ) . c_str ( ) ) ; 
strOffHours = getParameterValue ( "of fice_hours ") ; 
strOff Phone = getParameterValue ( "of fice_phone" ) ; 

//if Active Switch not provided, consider default as "1" 
if ( ! lHcpActiveSw) 

lHcpActiveSw - 1; 

//get db connection. 

pconn - m_pcoClient->getConnect ion ( ) ; 

//begin transaction 
pconn->beginTrans ( ) ; 

/ / g e t n e w a u d i t i d 

long lAuditld - getAudi t Id ( ) ; 

if (flAuditld) 

{ 

m_emLast . setError ( "Unexpected Condition !!! Cannot get new Audit ID !!!"); 
throw f Success = false; 

} 



// ENCOUNTER : Fetch/Create default encounter 
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") ; 



//check if default encounter present for participant 
long lEncId; 

rs_encounter . clearParms ( ) ; 
rs_encounter . set Records etToNul 1 ( ) ; 

r s_encounter . setActiveCommand ( "cmdFe tchCurr entld " ) ; 
rs_encounter . set Parameter ( ,, cpi_id" , _variant_t (lCpild) ) ; 
if ( ! pconn~>execute { r s_encounter ) ) 
{ 

m_emLast .setError (pc on n->get La stErr or () ) ; 
throw fSuccess = false; 

} 

//if default encounter not present, create one. 

if (r s_encounter . isEmpty { ) ) 

{ 

//get new en counter Id 
lEncId = getNewEncId { ) ; 
if UlEncId) 
{ 

m_emLast . setError ( "Unexpected condition!!! Cannot get new encounter Id!!! * 
throw fSuccess = false; 

} 

//create default encounter record with the new encounter id 
r s__en counter . clear Parms ( ) ; 
rs_encounter . setRecordSetToNull { ) ; 

r s_encoun ter . setActiveCommand ( "cmdlnser t Encounter " ) ; 
rs_encounter . set Parameter ( "enc__id" , _variant_t (lEncId) ) ; 
rs_encounter . setParameter ( H cpi_id" , _variant_t {lCpild)); 
rs_encounter . setParameter ( "audit_id" , _variant_t (lAuditld) ) ; 
if ( ! pconn->execute ( r s_encoun ter ) ) 
{ 

m__emLast . setError ( pconn->ge tLas t Er r or ( ) ) ; 
t brow fSuccess = false ; 

) 

} 

else 
{ 

//grab rhe encounter id. 
string strEncId; 

r s_encounter . get Fie Id ( "enc_id" , strEncId ) ; 
lEncId = atol (strEncId . c__str ()) ; 
rs_encounter . setRecordSetToNull ( ) ; 

} 

//check if we got the encounter id. 

if (ilEndd) 

{ 

m__emLast . setError ( "Unexpected condition!!! Cannot get new encounter Id!!!"); 
throw fSuccess = false; 



) 



/ -»• -> »- ■> r -i -jr -»- * f: '> t; ''" '* -■ ■* *: * ■»■ • * ■»: * *• ■> * *• \* * ■•■ * * -y f +■ 4 • -i- -r ? 

// HC? : Create /Update Physician information 
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//if hep id not provided, create new hep record, 
long IRecId = 0; 
if (!lHcpCpiId) 
{ 
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///////////////////////////////// 
//create new hop record. 
///////////////////////////////// 

//get new cpi_id 
lHcpCpild = getNewCpild ( ) ; 
if { ! lHcpCpild) 
{ 

m_emLast . setError ( "Unexpected condition!!! Cannot get new Cpi Id for HCPMtf 
throw f Sue cess = false; 

} 

char szBuf fer [20] ; 

string strHcpCpild = "cpi"; 

strHcpCpild += ltoa (lHcpCpild, szBuffer, 10); 

//insert new hep record in cpi master 

r s_cpi_master . setActiveCommand { "cmdlnsertEmptyRecord" ) ; 

rs_cpijmaster . set Parameter ( "cpiid" , _variant_t (lHcpCpild) ) ; 

rs_cpi_master . set Parameter ( "cpi_text_id" , _variant_t (strHcpCpild . c_str ( ) ) ) ; 

r s_cpi_master . setParameter ( "audi t_id" , _variant_t (lAuditld) ) ; 

if ( ! pconn-> execute { r s_cpi_mas ter ) ) 

{ 

m_emLast .setError (pconn->getLas tEr r or ( ).) ; 
threw f Success = false; 

) 



/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ////// / / / / 
//create/update hep record 

//(creates hop if hep not there or updates it.) 

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ./ / / / 
rs__hcp . setActiveCommand ( "cmdUpdate" ) ; 

rs_hcp . setParameter ( "cpi__id" , _variant_t (lHcpCpild) ); 
rs_hcp. setParameter ( "audit_id" , _variant_t (lAuditld) ); 
if ( ! pconn->execute ( r s_hcp) ) 
{ 

m_emLast . setError (pconn->getLas tEr ror ( ) ) ; 
throw f Success = false; 

} 

/////////////////////////////////// 

//As only one specialty is currently supported and the update sproc 
//inserts multiple specialty records, we have to delete the existing 
//specialty records so as to maintain only one record. 

//////\'///s////////// ///////////////// ///}////// /////////////// //////// 

r s_hcp_specialty . setActiveCommand ( "cmdDeleteAll '* ) ; 
rs_hcp_specialty . setParameter ( "cpi_id" , _variant_t (lHcpCpild) }; 
if ( ! pconn-> execute (rs_hcp_specialty ) ) 
{ 

m_emLast .setError (pconn->ge tLas tEr ror ( ) ) ; 
throw fSuccess = false; 

} 

////////////////////////////////////////////////////// ////////////////^ 
//create /update hep specialty info 

//[It creates HCP record internally if it doesn't exists] 
//////////////////////////////////////// ,'////////////////////////////// 
r s_hcp_specialty . setActiveCommand ( "cmdUpdate" ) ; 

rs_hcp_specialty . setParameter ( "cpi_id" , _variant_t (lHcpCpild) ); 
if (lHcpSpecialtyld) r s__hcp_special ty . set Parameter ( "specialty_id" , _variant_t 
(lHcpSpecialtyld) }; 

rs_hcp_specialty . setParameter ( "specialty" , _variant_t ( s trHcpSpecialty . c_s t r ( ) ) ); 
rs_hcp_specialty . setParameter ( "audit_id" , _variant_t (lAuditld) ); 
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if ( !pconn->execute (rs_hcp_specialty ) ) 
{ 

m_emLast . setError (pconn->getLas tError { ) ) ; 
throw fSuccess = false; 

} 



//////////////////////////// ////\ / / ////////////////////////// /////////// 
//create/update hcp_o£fice info 

/ / / / / / / / / / / / ./ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
string strHcpOf f iceRecId; 

//get record id or hcp_o£ f ice record to update. 

r s_hcp_of f ice .clearParrns(); 

r s__hcp_of f ice . setRecordSetToNull ( ) ; 

r s_hcp_of f ice . setActive Command { "cmdFetchRecordld " ) ; 

rs_hcp_of f ice . set Parameter ( "cpi_id" , _variant_t (lHcpCpild) ); 

if ( !pconn->execute {rs_hcp_of f ice ) ) 

{ 

m_emLast .setError (pconn->ge tLas tError ( ) ) ; 
throw fSuccess = false; 

} 

if ( ! r s_hcp_of f ice . isEmpt y ( ) ) 
{ 

rs_hcp_of f ice .get Fie Id ("rec_id" , s trHcpOf f iceRecId ) ; 

} 



r s_hcp_of f ice . clear Pa rms { ) ; 
rs_hcp_of f ice . setRecordSetToNull ( ) ; 
rs_hcp__of f ice . setActive Command ( "cmdUpdateAll " ) 
r s_hcp__of f ice . set Parameter { "cpi 
r s_hcp_of f ice . set Parameter { 
r s__hcp_of f ice . set Parameter { 
rs_hcp_of f ice . set Parameter { 
rs_hcp__off ice . set Parameter { 
rs_hcp_of f ice . setParameter { 
rs_hcp_of f ice . setParameter { 
r s _hcp of f ice . se t Parame ter { 



id", _variant_t (lHcpCpild) ); 
name", _variant_t ( strOf f Name . c_s tr ( } ) ); 
hours", _variant_t ( s trOf f Hour s . c_s tr ( ) ) ); 
mgr_name", __variant_t ( s t rOf f MgrName . c_str ( ) ) ) 
mgr_phone", _variant_t { strOffMgr Phone . c_str {) ) 
phone", _variant_t ( s trOff Phone . c_str () ) ); 
streetl", _variant_t { strOff Street 1 . c_str () ) ); 
street2", variant t { s tr Of f Street 2 . c str() ) ); 



rs_hcp_off ice . setParameter { "city" , _variant_t ( strOf f Ci ty . c_str { ) ) ); 

rs__hcp_off ice . set Parameter ( "state " , _variant_t ( strOff State . c_str () ) ); 

if (lOf f Stateld) rs_hcp_of f ice . setParameter { "state_id", _variant_t ( lOff Stat eld) 

rs_hcp_off ice . setParameter ( "zip" , _variant_t { strOf f Zip . c_s tr ( ) ) ); 
rs_hcp_off ice . setParameter ( "country" , _variant_t ( s trOf f Country . c_str () ) ); 
if ( lOf f Countr yld) rs_hcp_off ice . setParameter { "country_id" , _variant_t 
(lOf fCountryld) ); 

rs_hcp_off ice . setParameter ( "audit_id" , _variant_t (lAuditld) ); 

//provide rec_id for record updation if it exists. 
IRecId = atol (strHcpOf f iceRecId . c_str ()) ; 
if (IRecId) 

rs_hcp__off ice . setParameter ( "rec_id" , variant t (IRecId)); 



) « 



if ( ! pconn-> execute ( rs_hcp_of f ice ) ) 
{ 

m_emLast .setError (pconn~>ge tLas tError ( ) ) ; 
throw fSuccess = false; 

} 



/ / //////// / / / // / / //////////// /// //////// / / / / /////////////////////////// 
//create / u p date hep email address info in address table. 
///////// /./ //////////////////////////////// //////////////////////////// 
string st r HcpEmai lAddr essRedd ; 



//check if hep address record exists 
rs_address .clearParms ( ) ; 
rs_address . setRecordSetToNull ( ) ; 



C:\Docu ments and Sett ings\billyhe\ My ... \LCBroker VxcsetUser Physicians . cpp 



7 



rs__address . setAc t i veCommand ( " cmdFe tchRecordldBy Purpose " ) ; 
r s_address . setParameter ( "cpi_id" , _variant_t (lHcpCpild)); 
r s_addr ess . set Pa rameter ( "purpose" , _variant_t ("Email")); 
if ( (fSuccess = pconn->execute (rs^address) ) == false) 

{ 

m_emLast .setError (pconn->getLastError () ) ; 
throw fSuccess = false; 

} 

//get the MAX address rec _id 
if ( ! r s_address . isEmpt y ( ) ) 

r s_address . ge tField { " rec_id" , s trHcpEmailAddressRecId) ; 

rs_address . clear Par ms () ; 
rs_address . setRecordSetToNull ( ) ; 
rs^address . setAc t iveCornmand { "cmdUpdate" ) ; 

rs_addr ess . set Parameter ( "cpi_id" , _variant_t (lHcpCpild)); 
rs_address . setParameter ( "active_sw" , _variant_t ("1")); 
rs_address . setParameter ( "primary_sw" , _variant_t ("0")); 

r s_address . setParameter ("streetl", _variant_t ( s trHcpEmail Address . c_str ( ) ) ) ; 
rs_addr ess . setParameter ( "purpose" , _variant_t ("Email")); 
rs_address . setParameter ( "audit_id" , _variant_t (lAuditld)); 

//set record id if available to update record. 
lRecId = atol ( str HcpEmailAddressRecId . c__str { ) ) ; 
if (IRecId) 

rs_address . setParameter { "rec_id" , _variant_t (IRecId)); 

if ((fSuccess = pconn~>execute (rs_addr ess ) ) false) 
{ 

m_emLast .setError ( pconn->ge tLastEr r or ( ) ) ; 
threw fSuccess = false; 

} 

//////// //////////////////// / /////////////////// 
string s t r HcpNameRecId ; 

//check if hep address record exists 
rs_name . clear Pa rms ( ) ; 
rs_name . setRecordSetToNull ( ) ; 

rs_name . setAct iveCornmand ( " cmdFet chRecor did" ) ; 
rs_name . setParameter ( "cpi_id" , _variant__t (lHcpCpild)); 
if ((fSuccess - pconn->execute (rs_name ) ) false) 
{ 

m_emLast .setError (pconn->getLastError() ) ; 
threw fSuccess = false; 

} 

//get the MAX name rec_i. d 
if ( ! rs_name . isEmpty ( ) ) 

rs_name . get Fie Id ( "rec_id" , s tr HcpNameRecId ) ; 

rsjiame . clear ParmsO; 

rs_name . setRecordSetToNull ( ) ; 

r s_name . set Act iveCornmand ( "cmdUpdate " ) ; 

rs_name . setParameter ( "cpi_id" , _variant__t (lHcpCpild)); 
rs_name . setParameter ( "active_sw" , _variant_t ("1")); 

rs_name . setParameter ( "last_name " , _variant_t ( s t rHcpLastName . c_str ( ) ) ) ; 
rs__name . setParameter ( "middle_name " , _variant_t ( st rHcpMiddleName . c_str ( ) ) ) ; 
rs_name . setParameter ( " f irst_name " , _variant_t ( strHcpFir stName . c_s tr ( ) ) ) ; 
rs_name . set Parameter ( "audit_id" , _variant_t (lAuditld)); 

//set record id if available to update record. 
IRecId - atol (st rHcpNameRedd . c_str ( ) ) ; 
if (IRecId) 



/////////////////////// 
/////////////////////// 
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rs_name . set Parameter ( "rec_id" , _variant_t (IRecId)); 

if ((fSuccess = pconn->execute (rs_name ) ) == false) 
{ 

m_emLast . setError (pconn->getLa stEr ror ( ) ) ; 
throw fSuccess = false; 

} 

/////// / ////////////////////////////// ///////////////////////////////// 
//create/update hep Personal info in Person table. 

/////////////////////////////////////////////////////////////////////// 

r supers on . clear Parms ( ) ; 

rs_person . se tRecordSetToNull ( ) ; 

r s_person . se t Act ive Command ( "cmdUpdate " ) ; 

rs_person . set Parameter ( "cpi_id" , _variant_t (lHcpCpild)); 

rs_person . set Parameter ( "gender", _variant_t ( s trHcpGender . c_str { ) ) ) ; 

if ( lHcpGenderld) rs_person . set Parameter ( "gender_id" , _variant_t ( lHcpGender Id) ) ; 

rs_person . setParameter ( "audit_id" , _variant_t (lAuditld)); 

if ((fSuccess = pconn->execute (rs^person) ) false) 

i 

m_emLast . setError (pconn->getLa stError ( ) ) ; 
throw fSuccess = false; 

} 

J 4 i 4 * 4 v 4 ^ .4. * v 4 +. 4. . v v * *. 4. 4. -4. + 4 <- 4 a- -r V T * r V f r ■+ r * * •* * -r *t * V > *■ j *■ •*■ r + ■* +■ * * ■> 4 * ; 

//' LTMK ENCOUHTER_HCP : Link physician to participant 

/ * *. 1 * 4 + * * * t * •* * .*•* + + ■.*-■*+■** * * -V y * * -V * *r j. 4- * -* +; 4 * y -v 4 * r r T- -v » i * 4 a. 4 v 4 -* y * ■? *■ y i f *- y. ■*■ * y * -i - y * 4 / 

///////// /V /////////////////////////////// /V /////// /V ///// /V ////////// / 
//' create/update the encounter hop table record to link the user s hep. 
/ / i updates if rec_xd present, else creates one record) 
// We have the enc id and the hep id. 

/////////////// ////'/////////// //A'///////// //////// //////////y ////////;//// 

//create encounter_hcp linl: 
r s__encounter_hcp . clear Parms () ; 
r s_encounter_hcp . se tRecordSetToNul 1 ( ) ; 
r s_en count er_hcp . setActiveCommand ( "cmdUpdate" ) ; 
r s__encounter_hcp . setParameter ( "enc__id" , __variant_t (lEncId )); 
r s_en count er_hcp . setParameter ( "hcp_id" , __var iant_t ( lHcpCpild) ) ; 
r s_encounter_hcp . setParameter ( "active_sw" , _variant_t ( IHcpActiveSw) ) ; 
r s_encounter_hcp . setParameter ("relation", _variant_t ( strHcpType . c_str () } ) ; 
if (iHcpTypeld) rs_encounter_hcp . setParameter ( "relation_id" , _variant__t ^ 
(lHcpTypeld) ) ; 

r s_encounter_hcp . setParameter ( "audit_id" , _variant_t (lAuditld) ) ; 

//record id if present, updates record 
if (lHcpRecId) 

r s_encounter_hcp . setParameter ( "rec_id" , _variant_t (IHcpRecId) ) ; 

if ( !pconn->execute (rs_encounter_hcp) ) 
{ 

m_emLast . setError (pconn->ge tLa s tEr ror ( ) ) ; 
throw fSuccess = false; 

} 



} 

catch (bool fError) 
{ 

fError; 

} 

catch (_com_er ror & e) 
{ 

m_emLast . setError (e) ; 
fSuccess = false; 



C:\Documents and Settings\billyhe\My . \LCBroker\xc_s etUser Physicians . cpp 



} 

catch (...) 
{ 

m_emLast . setError ( "Unknown exception raised. [ Command : setUser Physicians ]") ; 
fSuccess = false; 

) 



//commit or Roll back the transaction. 

if (pconn) 

{ 

if (fSuccess) pconn->commi tTrans ( ) ; 
else pconn~>rollbackTrans ( ) ; 

} 



return fSuccess; 

} 
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If include "xc_Ot her Commands . h M 
# include "r s_user _pr ef erence . h" 

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ////// /' 
CXC IMPLEMENT FACTORY (Cxc se t User Pre f erence ) 



///////////////////////////////// ///////////////////////////////////// 
//Do parameter validation here 

bool Cxc_setUser Preference : : parsePar ameter s () 
{ 

string strData; 

/////////////////// ////// 

//cpi_id s pre ference_id should be provided. 

// A/ //////// ////////////// 1 / /////////// i ///// / ///////////// / ////// / 

strData = ge tParameterValue { "cpi_id" ) ; 

if (strData . empty () ) 

{ 

m_emLast . setError { "\"cpi_id\" is a required parameter. ") ; 

return false; 

} 

strData - get Paramet erValue ( "pref erence_id" ) ; 

if ( strData . empty () ) 

I 

m_emLast . setError (" \ "pref erence_id\" is a required parameter."); 

r e t u r n f a 3 s e ; 

} 

return true; 

} 



//////////////// // ////////////// ////////////////////////////////////// 
//Execute the command. 

bool Cxc_setUser Pref erence : : execCommand ( ) 
{ 

//Instantiate the sdo command . 
Crs_user_pref erence rsUserPreference; 

//set active command 

rsUser Preference. se t ActiveCommand { "cmdUpdate" ) ; 

//update the db. 

bool fSuccess = executeUpdate (rsUserPreference) ; 
return fSuccess; 

} 
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tfifndef xc__upda teCommands_h 
ftdefine xc__upda t eCommands_h 

^include "stdafx.h" 

# include "xcLCBroker . h" 



■///////////////////////////J///// •//////////\'/////f\'/////////// /////////////, 

// Declaration of all the XML Update Commands Classes. 

• y 

/////////////////////////////////////////////////////////////////////////////////// 

DECLARE_XML_UPDATECMD_CLASS ( Cxc_upt Addr es slnf o ) 
DECLARE_XML_UPDATECMD_CLASS (Cxc_upt Admit) 
DECLARE_XML_U P DAT ECMD_C LASS ( Cxc_uptCa r eDir ec t i ve s ) 
DEC LARE_XML_UP DAT ECMD__C LASS ( Cxc_uptCompany ) 
DECLARE_XML_UPDATECMD_CLASS ( Cxc_uptCon ver t Pc ) 
DECLARE_XMLJJPDATECMD_CLASS ( Cxc_upt Diagnosis ) 
DECLARE_XML_UPDATECMD_CLASS ( Cxc_upt Di s cha r ge ) 
DECLARE__XML_UPDATECMD_CLASS ( Cxc_uptEmployment ) 
DECLARE_XML_UPDATECMD_CLASS ( Cxc_uptEncoun ter ) 
DECLARE_XML_UPDATECMD_CLASS ( Cxc_uptEncoun terHcp) 
DECLARE_XML_U P DAT ECMD_C LASS ( Cxc_upt Encounter Log ) 
DECLARE_XML_U P DAT ECMD_C LASS { Cxc_uptEx t erna ICode ) 
DEC LARE_XML_UP DAT ECMD_C LASS ( Cxc_upt Faci 1 i t y ) 
DECLARE_XML_UPDATECMD_CLASS ( Cxc_uptGuar antor ) 
DECLARE_XML_UPDATECMD_CLASS (Cxc_upt Insurance ) 
DECLARE_XML_UPDATECMD_CLASS { Cxc_upt Insurance PI an ) 
DECLARE_XML_UPDATECMD_CLASS (Cxc_uptLoa ) 
DECLARE_XMLJJPDATECMD_CLASS (Cxc_upt Pa tient ) 
DECLARE_XML_UPDATECMD_CLASS { Cxc_upt Phys ica 1 ) 
DECLARE_XML_UPDATECMD_CLASS { Cxc_upt PreAdmi t ) 
DECLARE_XML_UPDAT£CMD_CLASS { Cxc_upt Phone ) 
DECLARE_XML_UPDATECMD__CLASS < Cxc_up tTr ans f er ) 
DECLARE_XML_UP DAT ECMD__C LASS <Cxc_upt IdMap ) 
DECLARE_XML_UPDATECMD_CLASS {Cxc_uptNok) 
DECLARE_XML_UP DAT ECMD_C LASS (Cxc_uptMiscIds ) 
DECLARE_XML_UPDATECMD_CLASS (Cxc_uptName ) 
DECLARE_XML_UP DAT ECMD_C LASS ( Cxc_up t Pe r son ) 

//declare class with overridden par se Command ( ) method . 
DECLARE_XML_UPDATECMD_CLASS2 {Cxc_uptBiogr aphics ) 



# end if 



C:\Documents and Se tt ings \billyhe\My . . . XLCSe rvices \LCBroker \xc uptAddressInf o . cpp 



1 



# include "xc_updateCommands . h" 
^include " r s_address . h" 

//////////////////////////////////////////////////////////////■/// 
CXC__ I MPLEMENT__ FACTORY ( Cxc_upt Addr es s In f o ) 



bool Cxc_uptAddressInf o : : execCommand ( ) 



//Instatiate the sdo command. 
Crs_address rsAddress; 

//set active command 

rsAddress . set Active Command { " cmdUpdate " ) ; 

//update the db. 

bool fSuccess = executeUpdate { rsAddress ) ; 
return fSuccess; 
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# include '*xc_updateCommands . h" 

#include "rs__admit .h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_ FACTORY (Cxc_uptAdmit ) 



bool Cxc_uptAdmit : rexecCommand ( ) 



//Instatiate the sdc command. 
Crs__admit rsAdmit; 

//set active command 

rs Admit . se tAct i veCommand ( "cmdUpdate" ) ; 

//update "he db. 

bool fSuccess = executeUpdate ( r sAdmi t ) ; 
return fSuccess; 
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If include "xc_upda teCommands . h" 

# include "r supers on . h" 
^include "rs_name.h" 

//////////// ///////////////////// //////////////////////////////// 
CXC_ I MPLEMENT_ FACTORY ( Cxc_up tBi ogr aphi c s ) 

//////////////////////////////////////////////////////////////////// 

//Checks for the existence of parameter "data** 

bool Cxc_uptBiogr aphics : : par seCoramand (CXml Document * pdoc) 

{ 

bool fSuccess; 

if (fSuccess - CXmlCommand : : parseCommand { pdoc ) ) 
m_docXmlCmd .attach( + pdoc) ; 

string str Dummy; 

fSuccess - (getParm ( "Name data", strDummy) I I get Parm (" Person data", strDummy) ) ; 
if { ! fSuccess ) 

m_emLast . setError ( "Missing [Name data ]/[ Person data] parameters !!!"); 
return fSuccess; 

} 



bool Cxc_uptBiogr aphics : : execCommand ( ) 
{ 

//Instantiate the sdo command . 
Crs_person rs_Person; 
Crs_name rs_Name; 

bool fSuccess = true; 
bool f Found = faJse; 

string strParm; 

//set activ-? command 

rs_Person . set Act iveCommand { " cmdUpdate" ) ; 
rs_Name . setAct iveCommand ( "cmdUpdate" ) ; 

CXmlElement elRoot; 

m_docXmlCmd . getCur rent ( s-elRoot ) ; //get the root element 

if (getParm ( "Name data", strParm) == true) 
{ 

CXmlElement elNameParm; 

f Fo u n d - e 1 Ro o t . g e t F i r s t ( & e 1 N a m e P a r m ) ; //get the p a r a m " M a me 6 a t a " el e m e n t . 

if (fFound) 

{ 

m_docXmlCmd . pushCurrent ( &elNameParm) ; //Push the parm element to the stack, yf 
fSuccess - execute (rs_Name) ; / / e x e c u t e 

} 

} 

//execute, only if update Name v;as successful! 

if {fSuccess && (get Parm (" Person data", strParm) true)) 

{ 

CXmlElement el Per sonParm; 
if (fFound) 

fFound = elRoot . getNext { &elPer sonParm) ; //get the par am "Person data" ^ 

element . 
else 

fFound = elRoot . get First ( &el Person Parm) ; //get; the pa ram "Person data" 

element . 



if (fFound) 
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{ 

m_docXmlCmd . pushCurrent { &el Per sonParm) ; //Push the parm element to the stack. ✓ 
f Success = execute (rs_Person) ; //execute 

} 

} 

if (IfFound) 
{ 

m_emLast . setError ( "No parameters present ...[ \ "Name data \ "/ \ " Per son data\"] !!!"); 
fSuccess = false; 

} 

return fSuccess; 
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* include "xc_upda teCommands . h" 

# include "rs_care_directives . h M 

////////^///^^// //////////////.■////////////////////////// ////////// 

CXC_IMPLEMENT_ FACTORY (Cxc_uptCareDirect ives ) 



bool Cxc_uptCareDirectives : : execCommand { ) 

//Instatiate the sdo command. 
Crs_care_dir ectives rsCare Directives; 

//set; active command. 

rsCareDirectives. setAc t i veCommand { "cmdUpdate" ) ; 

//update the db . 

bool fSuccess = executeUpdate ( r sCareDirect ives ) ; 
return fSuccess; 
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if include "xc_updateCommands . h" 

fl include "r s_Company . h" 

///////V/^\//// ///////////////////// ////////// ////////////////// // 
CXC_ I MPLEMENT^ FACTORY ( Cxc_uptCompany ) 



bool Cxc_uptCompany : : execCommand ( ) 
{ 

//Instatiate the sdo command. 
Crs_company rsCompany; 

rsCompany . setActiveCommand { " cmdUpdate" ) ; 

//update the db . 

bool f Success = executeUpdate { rsCompany ) ; 
return fSuccess; 
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# include "xc_updateCommands . h" 
tfinclude " r s_conver t_pc . h " 

//////// / / / / / / / ////////// / / / / / / //////// / / / / / / / / / / / / / / / / / / / / / / / / / / 
CXC_IMPLEMENT__FACTORY ( Cxc_up t Convert PC ) 



bocl Cxc_uptConvertPc : : execCommand { ) 



/ /In statist e the sdo coitimand. 
Crs_convert_pc rsConvertPc; 

//set active command 

rsConvertPc . se tAct iveCommand { "cmdUpdate" ) ; 

//update the db . 

booi fSuccess = executeUpdate ( rsConvertPc) ; 



return fSuccess; 

} 
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8 include "xc_upda teCommands . h" 

^include "rs_diagnosis . h" 

////////////////////////////////////////////// ///////////////// // 
CXC_IMPLEMENT_ FACTORY (Cxc_upt Diagnos i s ) 



bcol Cxc__uptDiagnosis : : execCommand { ) 
{ 

/ /Ins ta ti ate the sdo command. 
Cr s_diagnosis rsDiagnosis; 

//set active command 

rsDiagnosis. setAct iveCommand ( "cmdUpdate" ) ; 

//update the db. 

bocl f Success = executeUpdate ( rsDiagnosis ) ; 



return fSuccess; 

} 
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jf include "xc__updateCommands . h" 

ffinclude "r s_discharge . h" 

////////////////////// /////////////////////////////////////////// 
CXC_IMPLEMENT__FACTORY (Cxc_upt Discharge) 



bccl Cxc_uptDischar ge : : execCommand ( ) 



//Instatiate the sdo command. 
Crs_discharge rsDischarge; 

//set active coianiand 

rsDischarge. setActiveCommand { "cmdUpdate" ) ; 

//update the dta. 

bool fSuccess = executeUpdate {rsDischarge) ; 
return fSuccess ; 
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£ include "xc_updateCommands . h" 
#include " r s_employer s . h " 

///////////////////////////////////////////////////////////////// 
CXC_ IMPLEMENT^ FACTORY (Cxc_uptEmployment ) 



bool Cxc_uptEmployment : : execCommand ( ) 
{ 

//Instatiate the sdo command. 
Cr s_employer s rsEmployment; 

rs Employment . set Act iveCommand ( "cmdUpdate" ) ; 

//update the db. 

bool f Success = executeUpdate ( rsEmployment ) ; 
return f Success; 

} 
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#include "xc_upda teCommands . h" 

#include " r s_encounter . h " 

//////////////////// ///////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY {Cxc_uptEncounter ) 



bool Cxc_uptEncounter : : execCommand { ) 



//Updates a record in the Encounter table. 

//I n stat i ate the sdo command. 
Crs_encounter rsEncounter; 

//set: active command 

rsEncounter . setActive Command ( " cmdUpdate Encounter " ) ; 

//update the db. 

booi fSuccess = executeUpdate (rsEncounter) ; 



return fSuccess; 

} 
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# include "xc_upda teCommands . h" 

#include "rs_hcp.h" 

//////////// ///////// ///////////////////////////////// //'/// ////// 
CXC_IM PL EMENT_ FACTORY ( Cxc_upt Encounter Hep ) 

bool Cxc_uptEncounterHcp : : execCommand { ) 



//Instatiate the sdo command, 
Crs_encounter_hcp rsEncHcp; 

//set active command 

rsEncHcp . se tAct iveC omnia nd ( "cmdUpdate" ) ; 

//update the db . 

bool f Success ~ executeUpdate { rsEncHcp) ; 
return fSuccess; 
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# include "xc_upda teCommands . h" 

^include " r s_encounter . h" 

/ / / / / //////// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ////////// 
CXC_IM PL EMENT_ FACTORY ( Cxc_up t Encoun t er Log ) 



bool Cxc_uptEncounterLog : : execCommand ( ) 



//Updates the Encounter. (Updates the Encounter, Discharge, Admit tables). 

//Instatiate the sdo command. 
Crs_encounter rsEncounter; 

// set active command 

rsEncounter . set Act iveCommand ( "cmdUpdat eEncount erLog" ) ; 

//update the db. 

bool f Success = execut eUpdate ( rsEncounter ) ; 



return fSuccess; 

} 
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jf include "xc_upda teCommands . h" 
^include "rs_code_cache.h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY ( Cxc_uptEx ternalCode ) 



bool Cxc_uptExternalCode : : execComrnand ( ) 
{ 

// Ins ta tia te the sde command. 
Crs_code_extern r s_code_extern ; 

//set active command 

rs__code_extern . setActiveCommand { "cmdUpdate" ) ; 

//update the db. 

bool fSuccess = executeUpdate ( r s_code_extern) ; 



return fSuccess; 

} 
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# include "xc^updateCommands . h" 
# include "r s__sys_or g__f acili ty . h" 

//////// ////V/ //////////////////////////////////////////// /////// 
CXC_IMPLEMENT_ FACTORY ( Cxc_upt Facility ) 



bool Cxc_uptFacility : : execCommand ( ) 



//Instatiate the sclo command, 
Crs_facility rs_facility; 

rs_ facility, se t Act ive Command ( "cmdUpdate" ) ; 

//update the db . 

bool f Success = execu teUpda te ( r s_f acility ) ; 



return fSuccess; 

} 
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# include "xc_upda teCommands . h" 
#include "r s_guarantor . h" 

///////////////////////////////////////////////////////////////// 
CXC_ I MPLEMENT_ FACTORY (Cxc_uptGuarant or ) 



bool Cxc__uptGuarantor : : execCommand ( ) 



//Instantiate the sdo command, 
Cr s_guarantor r s_guarantor ; 

//set: active command 

rs_guarantor . se tAct iveCommand ( "cmdUpda te" ) ; 
//update the db. 

bool fSuccess = executeUpda te ( r s_guar antor ) ; 



return fSuccess; 

} 
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# include ">:c_upda teCommands . h" 

jf include "r s_id_map . h" 

////////////////// /////////////////////////////////////// //////// 
CXC_ I MPLEMENT_ FACTORY ( Cxc_upt IdMap ) 



bool Cxc_uptIdMap : : execCommand { ) 
{ 

/ / Ingratiate the sdc command . 
Cr s_id__map r s_id_map; 

rs_id_map . se tAct i veCommand ( "cmdUpdate" ) ; 

//update the db. 

bool fSuccess = execu teUpda te ( r s_id_map) ; 
return fSuccess; 
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liinclude "xc_updateCommands . h" 
#include "rs_insurance.h" 

///////////////////////// /////////////////////////// ///////////// 
CXC_IMPLEMENT_ FACTORY (Cxc__uptlnsurance ) 



bool Cxc_uptlnsurance : : execCommand { ) 



//Instantiate the sdo command. 
Crs_insurance r s_insurance ; 

//set active command 

rs_insurance . setAct iveCommand ( "cmdUpdate" ) ; 

//update the db. 

bool fSuccess = executeUpdate ( rs_insurance ) ; 
return fSuccess; 
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If include "xc__upda teCommands . h" 
#include "reinsurance . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY (Cxc_upt Insurance Plan ) 



bool Cxc_uptInsurancePlan : : execCommand ( ) 
{ 

//Instantiate the sdc command. 
Crs_insurance_plan rs_insur ance_plan ; 



r s_insurance_plan . setActiveCommand ( "cmdUpdate" ) ; 

//update the db . 

bool fSuccess = executeUpda te { r s_insurance_plan ) ; 
return fSuccess; 

) 
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# include " xc_upda t eCommands . h" 

^include "rs_loa.h" 

///////////J//////////////////;////////////////////////////////// 

CXC_IMPLEMENT_FACTORY (Cxc_uptLoa) 



bocl Cxc_uptLoa : : execCommand ( ) 
{ 

//Instantiate the sdo command . 
Crs_loa rs_loa; 

//set active command 

rs_loa . set Active Command ( "cmdUpdate" ) ; 

//update the db. 

bool fSuccess = executeUpdate { r s_loa ) ; 



return fSuccess; 

} 
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# i n c 1 u d e " x c_upd a t e C omnia n d s . h " 

# include " r s_misc_id . h " 

///////////////////////////////////////////////////////////////// 
CXC_ I MPLEMENT_ FACTORY { Cxc_up tMi sclds ) 



bool Cxc_uptMiscIds : : execComma nd { ) 
{ 

// In sua tiat = the sdc command. 
Crs_misc_id rs_misc_id; 

//set active command 

r s_misc_id . se tAct i ve Command ( "cmdUpdate" ) ; 

//update the db. 

bool fSuccess = executeUpda te ( rs_misc_id) ; 
return fSuccess; 



C:\Documents and Settings\billyhe\My . . . \LCServices\LCBroker \xc uptName.cpp 



1 



# include "xc__upda teCommands .h" 
#include "rs_name.h" 

///////////////////////////////////////////////////////////////// 
CXC__ I MPLEMENT_ FACTORY { Cxc_up tName ) 



bool Cxc_uptName : : execCommand ( ) 



//'Instatiate the sdo command. 
Crs_name rsName; 

//set active command 

rsName . setActiveCommand ( "cmdUpdate " ) ; 

//update the db. 

bool fSuccess ~ executeUpdate (rsName) ; 
return fSuccess; 
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#include "xc_upda teCommands . h" 
# include "rs^nok.h" 

////V/// ////////////////////////////////////// //////////// /////// 
CXC_IM PL EMENT_ FACTORY (Cxc_uptNok) 



bool Cxc_uptNok: : execCommand ( ) 



//Instatiate the sdc command. 
Crs_nok rs_nok; 1 

//set active command 

rs_nok . se tAct iveCommand ( " cmdUpdate " ) ; 

//update the db. 

bool f Success = executeUpdate { r s_nok} ; 
return fSuccess; 



} 
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# include "xc_update Commands . h" 
#include "rs_patient .h" 

/////' / / //////////// / / ////////////// ///////////////////7///////// / 
CXC__IMPLEMENT__FACTORY (Cxc_upt Pa t ient ) 



bool Cxc__upt Pa t ient : : execCommand ( ) 



//Instantiate the sdo command, 
Crs_patient rs_patient; 

//set active command 

rs_patient . setActive Command ( "cmdUpdate" ) ; 

//update the db . 

bool f Success = executeUpdate (rs_patient) ; 
return fSuccess; 
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# include "xc_upda teCommands . h" 

# include " r s_per son . h " 

/////////////////////////////////////////// ////////////////////// 
CXC_IM PLEM EN T_ FACTORY (Cxc_uptPer son) 

bool Cxc_uptPerson : : execCommand ( ) 
{ 

// Instatiate the sdc command. 
Cr s__per son rs Person; 

//set active command 

r s Per son . setActive Command { " cmdUpdate " } ; 

//update the db . 

bool f Success = executeUpdate (rsPerson) ; 
return f Success; 
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if include "xc_upda teCommands . h" 
#include "rs^phone.h" 

////////////////////////////////////////// 
CXC_ I MPLEM EN T_ FACTORY { Cxc_upt Phone ) 

bool Cxc_upt Phone :: execCommand ( ) 
{ 

//Instantiate the sdo command. 
Crs_phone rs_phone; 

rs__phone . se tAct iveCommand ( "cmdupdate " ) ; 

//update the db. 

bool fSuccess = execu teUpdate { r s_phone ) ; 
return fSuccess; 
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tf include "xc_upda teCommands .h" 
# include " r s_physical . h" 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_FACTORY <Cxc_uptPhysical ) 



bool Cxc_uptPhysical : : execCommand ( ) 



//Instantiate the 5 do command. 
Crs_physical rs_physical; 

//set active command 

rs_physical . se tActiveCommand ( "cmdUpdate" ) ; 

//update the d b . 

bool fSuccess = executeUpda te ( rs_physical } ; 



return fSuccess; 

} 
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^include M xc_upda teCommands . h" 
^include " r s_pre_admi t . h" 

//'/////////////////////////////////// //////// //////////*// //////// 
CXC_IMPLEMENT__ FACTORY (Cxc_up t Pr eAdmi t ) 



bool Cxc_uptPreAdmi t : : execCommand ( } 



//Instantiate the sac command. 
Crs_pre_admi t rs_pre_admi t ; 

//set active command 

rs__pre__admit . se tAct iveCommand ( "cmdUpdate" ) ; 

//update the db . 

bool fSuccess = executeUpdate ( r s_pre_admit ) ; 
return fSuccess; 
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# include "xc_upda teCommands . h" 
^include "r s_t rans f er . h " 

///////////////////////////////////////////////////////////////// 
CXC_IMPLEMENT_ FACTORY (Cxc__uptTransf er ) 



bool Cxc_uptTransf er : : execCommand ( ) 



//'Instantiate the sdo command. 
Crs_transfer rs_transfer; 

//set active command 

rs_transfer . setActiveCommand { "cmdUpdate" ) ; 

//update the db . 

bool fSuccess = executeUpda te ( r s_trans f er ) ; 
return fSuccess; 
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f /////// ////////////////// 1 

'//////;/////////////////// 

# include "stdafx.h" 

% include "SldoBase.h" 

Hnclude "idGen.h" 

If include "xcLCBroker . h M 



// Include files 

///////////////////////////////////////////. 



//Gee Command:? Include 

# include "xc_Ge t Comma nds . h" 

//Set Commands include 
^include M xc_SetCommands . h" 

//Update command includes 

# include "xc_Upda teCommands . h" 

//delete command includes 

# include "xc_deleteCommands . h" 

//Insert command Includes 

#in elude " xc_Inser t Comma nds . h" 

//■Other command includes 

# include "xc Ot her Commands . h" 



CxcLCBr oke i: 



ovy 



/////////////// 



v /;//////////, 



///////////// 



CXC_FACTORY_MAP (CxcLCBroker Factory) 

/*:!:!■ I •!!:!! i ' keep in alphabetical order , sear eh ec 
//delete commands 



CXC 


FACTORY 


cxc 


FACTORY 


cxc 


factory' 


cxc 


factory' 


cxc 


"factory 


cxc 


[ FACTORY^ 


cxc 


'factory' 


cxc 


factory' 


cxc 


^factory' 


cxc 


'factory' 


cxc_ 


^factory' 


cxc_ 


'factory' 


cxc 


"factory^ 


cxc_ 


'factory' 


cxc 


factory' 


cxc_ 


factory^ 


cxc_ 


^ factory" 


cxc 


'factory' 


cxc 


"factory' 


cxc 


^factory' 


cxc 


factory' 



//searcn comma no a 
CXC_FACTORY_ENTRY (execSearch) 

//get commands 

CXC_FACTORY_ENTRY (getAccountlnf o) 
CXC_FACTORY_ENTRY (getAddr ess Info) 
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cxc 


FACTORY 


ENTRY 


ge t Admi t ) 


cxc" 


FACTORY 


ENTRY 


getAllergylnfo) 


cxc" 


factory" 


ENTRY 


get Beds ) 


cxc" 


factory" 


ENTRY 


getBiographicallnfo) 


cxc" 


factory" 


ENTRY 


getBloodPressureReadings ) 


cxc" 


factory" 


ENTRY 


getCare Directive s ) 


cxc" 


factory" 


ENTRY 


getCholesterolReadings ) 


cxc" 


factory" 


ENTRY 


getCodeCats ) 


cxc" 


factory" 


ENTRY 


ge tCode s ) 


cxc 


FACTORY 


ENTRY 


ge tCompany ) 


cxc" 


factory" 


ENTRY 


ge tConver t Pc } 


cxc 


factory" 


ENTRY 


getCpi Id ) 


cxc 


factory" 


ENTRY 


getCpildExists ) 


cxc 


factory 


ENTRY 


ge tCurz Convert Pc ) 


cxc_ 


factory^ 


[ENTRY 


; getCurr En count er ) 


cxc 


factory 


ENTRY 


ge tCur r Encounter Id ) 


cxc 


factory 


ENTRY 


getCur rLoa ) 


cxc" 


factory" 


ENTRY 


ge tCurr Pre Admit ) 


cxc" 


factory" 


ENTRY 


getCurrTransfer ) 


cxc" 


factory" 


ENTRY 


getDiagnosis ) 


cxc" 


factory' 


ENTRY 


, y k, u x o ci **/ x x x *~ y 1 


cxc" 


factory 


ENTRY 


ft p t~ D i ^rhfl rnp ) 
y ^ l u jl o v, n a i y c / 


cxc" 


factory" 


ENTRY 


n p t" D i ^ph^rnpHi qtnrv) 


cxc" 


factory" 


ENTRY 


c~i p t~ F, ?n n 1 ovI^lpn^ Tnf n) 


cxc" 


factory" 


ENTRY 


getEncounterTree ) 


cxc" 


factory" 


"entry 


igetExternallDs ) 


cxc" 


factory" 


ENTRY 


[get Fa cilities) 


cxc" 


factory" 


ENTRY 


getFamilyHistorv ) 


cxc 


factory 


ENTRY 


[getFamilyTx'ee ) 


cxc 


FACTORY 


ENTRY 


d p 1~ i^ns t k\ 1" nrT n f n ) 

! L VJ U Cl i- Gt 1 J LU1 Xlli U / 


cxc 


FACTORY 


ENTRY 


' np t" Hp^ 1 1~ h C n n ci i t" i nnt;) 

y vT L 1 1 U -L L J i U 1 J \J -1- L- X W 1 1 O / 


cxc 


FACTORY 


ENTRY 


' np t" THp^ 1 RPR^nnp q \ 


cxc" 


FACTORY 


ENTRY 


' dp t" T nifl ni nnTnf n) 


cxc" 


FACTORY 


ENTRY 


npt"TmTnun"i •* 3 i~ i nn'? ) 


cxc 


FACTORY 


ENTRY 


npfTnP^h i enf Q 1 
, y c l i ii r a i_xc:ui_o ) 


cxc" 


factory" 


ENTRY 


getlnsPlans ) 


cxc 


FACTORY 

L n \s X \J x\ x 


ENTRY 


npfTn^Pl pn^Rur om a n v ) 
y c u j. (i o r xa no uy ^<Juipo ny / 


cxc 


FACTORY 


ENTRY 


i ytr LJ.iiDUi.ain,c^uvci ci y c / 


cxc 


FACTORY 

X i* X w I \ X 


ENTRY 


n p I - TnmirflnrpTnf n ) 


cxc" 


FACTORY 


ENTRY 




cxc 


FACTORY 

X / i \^ X w i \ X 


ENTRY 


n p t T . (i \ 

\ y L iiua i 


cxc" 


FACTORY 

X Ai X \J x\ X 


ENTRY 


cipf'T.n^H'i Qfnrvl 
u c l xj u ci J 1 1 o l u j. y y 


cxc 


FACTORY 


ENTRY 


' tip I*Ma q c;M^ "i 1 i nn 1 
i ytr L n a o o 1 1 a J. X X 11 y ^ 


cxc" 


factory" 


ENTRY 


1 hp1"MpH i f3t" i nn<?) 


cxc 


factory" 


ENTRY 


' n P t M 1 qpTD^I 


cxc 


FAfTORY 


ENTRY 


, y tr u iv a in tr y 


cxc" 


factory" 


ENTRY 


rtPfMpuiFnrnnrit' pi tTH \ 
! y c li< c w c.1 1 l ULiii uex x \a ] 


cxc 


FACTORY 


ENTRY 


fip1"Mpwflnrpnfl £ ;pT*TH \ 


cxc" 


factory" 


ENTRY 


, y c l n u j 1 . ; 


cxc" 


factory" 


ENTRY 


, y " ui"iWjj.r^xx / 


cxc 


FACTORY 


ENTRY 


,yc L.roaowuj-Ui\ciiii.iiuci / 


cxc" 


factory" 


ENTRY 


, y c l r a Li.cn LiiULa i — luii j 


cxc 


F A C T O R Y 


ENTRY 


ript" P-^t i pnt"^i-at"nc; \ 
.y^rcirci I LCII L.O La L Uo / 




FAPTClR Y 


PHTRY 


^fcrLlrci L lcIlL VdlUdJJlci) / 




FSTTADV 

r t\ l OKI 




; ge t Pe r son ) 


cxc 




ENTRY 


' r\ a* \~ O T^i t\ c± \ 
, y tr L x JlOIltr / 




r rtt 1 wK i 




IgetPhysicallnfo) 


cxc" 


factory" 


ENTRY 


[getPhysicianlnfo) 


cxc" 


FACTORY" 


[ENTRY 


( get Physicians ) 


cxc 


FACTORY_ 


'entry 


(get Pocs ) 


cxc_ 


factory" 


'entry 


( get Pr eAdmit ) 


cxc_ 


FACTORY^ 


ENTRY 


(get Pulse Readings) 


cxc" 


FACTORY* 


[entry 


( getReminder ) 


cxc 


FACTORY 


"entry 


( ge tRooms ) 


cxc 


FACTORY 


"entry 


(getSecuritylnfo) 


cxc 


FACTORY 


'entry 


(getSLMDLocations) 


cxc 


FACTORY 


'entry 


(getStats ) 
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CXC_FACTORY_ENTRY 
CXC_FACTORY_ENTRY 
CXC_ FACTOR Y_EN TRY 
CXC_ FACTOR Y_ENTRY 
CXC_ FACTOR Y_EN TRY 
CXC_ FACTOR Y_ENTRY 
CXC_FACTORY_ENTRY 
CXC_ FACTOR Y_EN TRY 

//insert commands 
CXC__FACTORY_ENTRY 
CXC_ FACTOR Y_EN TRY 
CXC_FACTORY_ENTRY 
CXC_ FACTOR Y_EN TRY 
CXC_FACTORY_ENTRY 
CXC_FACTORY__ENTRY 
CXC_FACTORY_ENTRY 
CXC_ FACTOR Y_ENTRY 
CXC_ FACTOR Y_EN TRY 
CXC_FACTORY_ENTRY 
CXC FACTORY ENTRY 



//general conunand 


CXC 


FACTORY 


entry 


CXC 


factory' 


"entry 


CXC 


FACTORY^ 


"entry 


CXC_ 


FACTORY^ 


^ENTRY 


CXC_ 


factory" 


"entry 


CXC 


FACTORY^ 


"entry 


cxc_ 


FACTORY_ 


"entry 


CXC 


factory" 


"entry 


CXC 


FACTORY 


"entry 


CXC 


factory" 


"entry 


CXC 


factory" 


Gentry 


CXC L 


factory" 


Gentry 


CXC 


factory" 


^entry 


CXC 


factory" 


"entry 


CXC 


FACTORY^ 


"entry 


CXC 


factory" 


"entry 


CXC 


FACTORY 


"entry 


CXC 


FACTORY 


"entry 


CXC_ 


factory" 


"entry 


CXC 


factory" 


^entry 



//up. 


date commands 


CXC 


FACTORY 


ENTRY 


CXC 


FACTORY_ENTRY 


CXC_ 


FACTORY ENTRY 


CXC 


FACTORY 


ENTRY 


CXC 


factory" 


"entry 


CXC 


FACTORY 


"entry 


CXC 


FACTORY 


'entry 


CXC_ 


FACTORY_ 


"entry 


CXC 


FACTORY 


"entry 


CXC 


FACTORY 


"entry 


CXC_ 


factory" 


^entry 


CXC 


FACTORY 


"entry 


CXC 


FACTORY 


"entry 


CXC 


FACTORY 


"entry 


CXC 


FACTORY 


'entry 


CXC 


factory" 


Gentry 


CXC 


FACTORY 


"entry 


CXC 


factory" 


Gentry 


CXC 


FACTORY 


"entry 


CXC 


FACTORY 


'entry 


CXC 


FACTORY ENTRY 


CXC 


FACTORY ENTRY 



getSurger ylnf o) 
getTherapylnf o) 
getTransf er ) 
getUser Biographies ) 
getUserlnsurance) 
getUser Physicians) 
getUser Prefer ence ) 
getWeight Readings ) 



insCodeCategory ) 
insCpiMaster ) 
insCpiUser ) 
insDiagnosis ) 
insEncounter ) 
insEncounterLog) 
ins Encounter Map) 
insExternalCode ) 
insInternalCode) 
insMassMailing ) 
insSysOrg) 



loginUser ) 
openDatabase ) 
setAllergylnf o) 
setBloodPressure ) 
setCholes terol Readings ) 
setEmployment Inf o) 
set Family His tory ) 
set Heal thConditions ) 
setlmaginglnfo) 
se tlmmuni zat ions ) 
setlnsurance ) 
setMedi cat ions ) 
setReminder ) 
setSLMDLocations ) 
setSurgerylnf o) 
setTherapylnf o) 
setUnregisteredUser) 
setUserBiographics ) 
setUser Physicians) 
setUser Prefer ence) 



uptAddressInf o) 
uptAdmit ) 
uptBiographics ) 
uptCare Directives ) 
uptCompany ) 
uptConver tPc ) 
uptDiagnosis ) 
uptDischarge ) 
uptEmployment ) 
uptEncounter ) 
upt En counter Hep) 
uptEncounter Log ) 
uptExternalCode) 
uptFacility) 
uptGuarantor ) 
uptldMap) 
uptlnsurance ) 
uptlnsurancePlan) 
uptLoa ) 
uptMiscIds ) 
uptName ) 
uptNok ) 
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CXC_FACTORY_ENTRY (uptPatient) 
CXC_FACTORY_ENTRY (uptPerson) 
CXC_FACTORY_ENTRY {uptPhone ) 
CXC__FACTORY_ENTRY { upt Phy s i ca 1 ) 
CXC_ FACT ORY__EN TRY {uptPreAdmi t ) 
CXC_FACTORY_ENTRY (uptTransf er ) 
CXC_FACTORY_MAP__END ( ) 

CxcLC Broker Factory: : CxcLCBroker Factory ( ) 

: CXmlCommandFactory (CXC_FACTORY_BASE, CXC_FACTORY_COUNT ) 

{ 
} 



/////////////////////////////////////////// 
// CxcLCBroker 

/////////////////////////////////////////// 

CxcLCBroker : : CxcLCBroker ( ) 
{ 

m_pcoClient = NULL; 
m_emLast . clear { ) ; 

} 

void CxcLCBroker :: setOwner (CComOb jectRootBase 4 pcoOwner) 
{ 

m_pcoClient = (CoLCBroker *) pcoOwner; 
return ; 

} 



//generates an audit Id, sticks to the audit: cable and return eno Id. 
inline 

long CxcLCBroker :: getAuditld { ) 
{ 

return m_pcoClient->getAudit!dGenera tor { ) ->generateld ( 0 , 0, m_pcoClien t->getHos tName ( ) 
, "LCBroker" ) ; 

} 

//generates an cpi Id 
inline 

long CxcLCBroker: : getNewCpi Id ( ) 
{ 

return m_pcoClient->getCpiIdGener a tor ()->generateId(); 

) 

/ / generates a n e n c 1 d 
inline 

long CxcLCBroker :: getNewEncId ( ) 
{ 

return m_pcoClient~>ge tEncIdGenera tor ( ) ->generateld ( ) ; 

} 

//generates an unregis ter ed_user Id 
inline 

long CxcLCBroker : : getNewUnr egUser Id ( ) 
{ 

return m_pcoClient~>getUnregUserIdGenerator {) ~>generateld{) ; 

} 

//add a :-:m.l ?:ag to the results document, 
inline 

void CxcLCBroker :: openXmlTag ( string strTagName, string s trAttribute ) 
{ 

CXmlElement xmlElTag, xmlElCur r ent ; 



/////////////////////////// 
//////////////////// /////// 
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if (m_pdocResul t s ) 
{ 

m_pdocResults->getCurrent ( &xmlE!Current ) ; 

m_pdocResul ts->createElement (strTagName . c_str { ) , (LPCSTR) NULL, fixmlElTag) ; 
xmlElTag . setAt tribute (XML_ATTR_TYPE, strAttribute . c_str ( ) ) ; 
xmlElCurrent . addChild ( &xmlElTag ) ; 
m_pdocResults->pushCur rent UxmlElTag) ; 

) 

return ; 

} 

//close the y.ml tag 
inline 

void CxcLCBroker : : closeXmlTag ( ) 
{ 

if (m^pdocResul ts ) m_pdocResul t s->popCur r ent ( ) ; 
return ; 

} 



//add XML tag and its value to result document, 
inline 

void CxcLCBroker :: addXmlChild ( string strTagName, _variant_t vValue) 
{ 

CXmlElement xmlElCol, xmlElCurrent; 
string strValue ; 

strValue = (char * ) _bstr_t (vValue); 

if (m_pdocResul ts ) 
{ 

m_pdocResul t s->ge tCurrent ( &xmlElCur r ent ) ; 

m_pdocResul t s->cr eat e Element ( strTagName . c_st r { ) , strValue . c_str ( ) , &xmlElCol ) ; 
xmlElCol . setAt tribute (XML_ATTR_TYPE, XML_TYPE_COLUMN ) ; 
xmlElCurrent . addChild ( &xmlElCol) ; 

} 

return ; 

} 

//return the value of a field from the recordset as string 
i n 1 i r •- e 

string CxcLCBroker :: get Field ( CSdoRecordset &rsRS, string strField) 
{ 

string strValue ; 

rsRS. get Field (strField. c_s tr ( ) , strValue) ; 
return str Value . c_str () ; 

} 
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////////////////////////////////////////////////////////////////////// 
// Include files 

////////////////////////////////////////////////////////////////////// 

^include "stdafx.h" 

^include "SldoBase.h" 

#include "idGen.h" 

^include "xcLCBroker . h" 



/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /' / / / / / / / / / / / / / / / / / / / / / / / / / / / 
// CxcLCBrokerModif V 

//////////'//////////////////////////////////////////////////////////// 

CxcLCBrokerModif y: : CxcLCBrokerModif y ( ) 

{ 

} 



//////////////////////////////////////////////////////////////////// 

//Checks for the existence of parameter "data" 

bool CxcLCBrokerModif y: rparseCommand (CXmlDocument * pdoc) 

{ 

bool fSuccess; 

if {fSuccess = CXmlCommand : rparseCommand (pdoc) ) 
m_docXmlCmd . attach ( *pdoc) ; 

string strDummy; 

if (! (fSuccess = getParm ( "data " , strDummy))) 

m_emLa st . setError ( "Missing data parameter"); 

return fSuccess; 

} 



'I////////////////////////////////////////////////////////////////// 
// Pushes the data parameter el erne nr. in stack and calls execute. 
// 

// [Call this method if the parameter name is data J 

// [for custom parameter names, process parameter names and then call I" execute] 
/////////////// ///////////////////// /////////// ///////////////////// 

bool CxcLCBrokerModif y :: executeUpdate (CSdoRecordset & r sCmdRecSet , bool f Genera teAudi t Id ) 
{ 

CXmlElement elRoot; 

m_docXml Cmd . ge tCur r e n t { & e 1 Roo t ) ; / / g e t the r oo t e .1 erne n t 

CXmlElement elParm; 

e 1 Roo t . g e t Fi r s t { & e 1 Pa r m ) ; / / g e t the pa r am " da t a " e 1 emen t . 

m_docXmlCmd . pushCur rent ( &elParm) ; //Push the parm element to the stack, 

return execute ( rsCmdRecSet , f Genera teAudit Id ) ; 

} 



/ j. v ^ » i * . + , i. .. «. . r v 4 v ^ v y v + v * ,. + * 4. + ^ * * * ^ 4 v * Vri *y + 4 4r + + 4 *t t*-vr * f * + ; * i. ■> * 4 * y t » 

FUNCTION : Generalised method to process xml data. 

DESCRI PT3 OH : 

- fetches the data, rows, row tags 

- calls virtual, method parse Parameter { } for each ROW provided. 

- sets all the parameters of the command . 

- get..* the audit id if required. 

- gets database connection and e x e c u t e s t n e c o mm a n d . 
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USE: 

- Call this method if □ want to pass the data to stored procedure. 

- Create the recordset object and set active command. 

- Implement parameter parsing in parse Parameter ( ) method. 

bool CxcLCBrokerModif y :: execute (CSdoRecordset &rsCmdRecSet , bool f Genera teAuditld ) 
{ 

bool f Success = false; 
string strTag; 

CSdoConnection + pconn = NULL; 

m_emLast .clear ( ) ; 

try 
{ 

//Active command is expected to be set prior calling . 
//get the Sdo command pointer 

CSdoCommand * pcmdSdo = r sCmdRecSet . ge tActi veCommand ( ) ; 

//get the connection 

pconn = m_pcoClient->getConnection ( ) ; 

//start transaction 
pconn->beginTrans ( ) ; 

//gee the data pars meter element from stack. 

CXmlElement elParm; 

m_docXmlCmd . getCur rent ( &elParm) ; 

CXmlElement elRows; 

elParm. getFirst ( &elRows ) ; //get the "rows" Element 

el Rows . getTag (strTag ) ; 

if ( stricmp ( strTag . c_str () , "rows") != 0) 
{ 

m_emLast .clear {) ; 

m_emLast << "Expecting XML element \"rows\". Found \"" << strTag << "\"." ; 
return false; 

} 

CXmlElement el Row; 

bool fRows = elRows . getFirst ( &elRow) ; //get the "row" Element 

while {fRows) //process tor all "row M Elements 

{ 

elRow . getTag ( strTag) ; 

if (stricmp(strTag.c_str () , "row") != 0) 
{ 

m_emLast . clear { ) ; 

m_emLast << "Expecting XML element \"row\" . Found \ " " << strTag << "\"."; 

fSuccess = false; 

break; 

} 

//Set ail che parameters 
m_docXmlCmd . pushCurrent UelRow) ; 

//Call the virtual method to do any parameter validation. 

if ( ! parseParame ter s ( ) ) 

{ 

fSuccess ~ false; 
b r e a k ; 

} 
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pcmdSdo->clear Parms { ) ; 

if (pcmdSdo->setParms (m__docXmlCmd ) ~~ false) 
{ 

string strError; 

pcmdSdo->getLas tError (strError) ; 
m_emLast .setError (strError. c_str ( ) ) ; 
fSuccess = false; 
break; 

} 

m_docXmlCmd . popCurrent ( ) ; 

//Generate and set Audi. tID if applicable. 

if ( f GenerateAuditld) 

{ 

// generate audit, id 

long INewId = getAudit Id ( ) ; 

pcmdSdo->setParm ( "audit_id", _variant_t (INewId) ) ; 

) 

// update the table 

if (! {fSuccess = pconn->execute ( r sCmdRecSe t ) ) ) 
{ 

m_emLast . setError (pconn~>getLastError ( ) ) ; 
fSuccess - false; 
break ; 

} 

//fetch ne:>u row to update. 
fRows = elRows . getNext { &elRow) ; 

} 

} 

catch (_com_error & e) 
{ 

m_emLas t .setError (e ) ; 
fSuccess = false; 

} 

catch (...) 
{ 

m_emLast . setError ( "Unkown exception raised . [CxcLCBrokerModif y :: execute * 
(parameters ) ] " ) ; 

fSuccess = false; 

) 

//commit or Roil back the transaction. 

if (pconn) 

{ 

if (fSuccess) pconn->commi tTrans ( ) ; 
else pconn->rollbackTrans ( ) ; 

} 

return fSuccess; 



/ » * * * * ■•■ ■* ■•■ k -'• f * * 4 •* •»• -it •* •■' * - * jt Jr -■■ X 4- * -V 4; -Ir i -r * * ~X "V > 4; -k 4. + 4; * 4. .jj. * -V -Ir * 4; * >t * -C •> -1- * 4- •> 4- •* 4; ■* * -V * ' ; " * * * * " « - +■*■>■»* 1 

FUNCTION : Generalised method to process xml data. 

DESCRIPTION: 

- fetches the data, rows, row tags 

•- calls virtual method par sePa rameter () for eah ROW provided 

- calls virtual method process Data ( ) for each ROW provided. 

USE : 

- Call this method to loop thr ought all the data ROWS provided. 
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- Implement the data processing logic in process Data { } method. 

- Implement pa rametex. parsing :in parsePa rame tei: { ) method. 

* •*• ■" «■ * -*■ ■» -v » -- * ■«- r -- * i * * -i- -v H- ■* -i- 4 -v y •;- > -t + y •>■ «• + * + -i- -i T i- -j, £ * y •> V ■?- * -V * -*• ?• * i -s- »• ■* ■*--*■ *■ / 

bcol CxcLCBrokerModif y : : execute ( ) 
{ 

bool fSuccess = false; 

string strTag; 
m_emLas t . clear () ; 

try 
{ 

CXmlElement elRoot; 

m_docXmlCmd . getCurrent ( &elRoot ) ; //get the root element 

CXmlElement elParm; 

elRoot . getFir st { &elParm) ; //get the param "data" element. 

CXmlElement elRows; 

elParm.getFirst UelRows) ; //get the "rows" Element 

elRows . getTag (strTag ) ; 

if ( stricmp ( strTag . c_str () , "rows") != 0) 
{ 

m_emLast .clear () ; 

m_emLast << "Expecting XML element \"rows\". Found \"" << strTag << "V ."; 

ret u r n false ; 

} 

CXmlElement elRow; 

bool fRows = elRows . getFirst ( &elRow) ; //get the "row" Element 

while (fRows) //process for all "row" Elements 

{ 

//aec "row" tag 
elRow. getTag (strTag) ; 

if (stricmp (strTag . c_str () , "row") != 0) 
{ 

rn__emLast . clear ( ) ; 

m_emLast << "Expecting XML element \"row\". Found \"" << strTag << "\"."; 

fSuccess = false; 

break; 

} 

//push this row element to stack. 
m_doc.XmlCmd . pushCurrent ( &elRow) ; 

//Call rhe virtual method to do any parameter validation. 

if ( ! parseParameters ( ) ) 

{ 

fSuccess = false; 
break; 

} 

//Call the virtual method to do the data processing. 

if ( ! processData ( ) ) 

{ 

fSuccess - false; 
break ; 

} 

//fetch next row to update. 
fRows = elRows . getNext ( &elRow) ; 

} 

} 

catch ( com error & e) 
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{ 

m__emLast . setError (e) ; 
fSuccess = false; 

} 

catch (...) 
{ 

rn_emLast .setError { "Unkown exception raised. [CxcLCBroker Modify : : execute] " ) ; 
fSuccess = false; 

} 

return fSuccess; 

} 

FUNCTION : Return the parameter value by parameter name. 

DESCRIPTION : 

- retches the data value by the provided tag 

USE: 

v * •* * * * ■*■ + * r r ■*■ * ■* *■ •>• + ■* *■ ******* * * *■ ************ ■* * v * :*■ * ■+. * -> * * * * * * ■»■ * * * •.*• * «* *>•*■* * •» * * * * v / 

string CxcLCBr okerModi f y :: get ParameterValue ( string strName) 
{ 

string strValue; 
CXmlElement elRow, elParm; 

//Get the Current Row Lag from the stack. 
m_docXmlCmd .getCurrent { & elRow) ; 

strValue - ""; 

if (elRow . getFirstltem (strName . c_str () , &elParm) ) 
elParm.getText ( strValue ) ; 

return strValue; 

} 



C:\Docu ments and Settings\billyhe\My . . . \LCServices \LCBroker\xmlCommand . cpp 1 

^include "stdafx.h" 
If include "XmlPar ser . h" 
# include "xmlCommand . h" 

j V * V * 4 * '4 4 4 4 •> 4 * 4 ■> 4 > 4 4 4-4444* > 4 -A 4 •> 4 4 4 •> 4 * 4 * 4 4 > 4 4 4 4 4 i 4 > 4 4 4 i x 4 -4 -4 4 4 4 4 4 •> 4 4 4 * 4 •» 4 

Class: CXml Comma rid Pact cry 

Purpose: Serves as base class for specialized commend factories. Parses 
xml commands and instantiates specialised CXmlCommand based on 
the command name . Derived classes overried cr ea teCorainanciByName ( } 
to create specific commands. 

* * * .4 * * * -.4 * •*. * * 4 * 4 * * * * * * * "4 ***** * 4 -j- * * 4 * 4 * 4 4 * ****** * * ************ 7. ** *•»•** 4 * 4 * V 4 / 
/ ******* * A r *+**.■** V ***** -V * * * 4 4 4 4 * 44 4 ***•**■+* -* 4 - 1 4 4 4 - 4-4 4 4 * * **-*** *■*•*■» 4 > 4 4 4 * 4 * 

Class: CXml Command 

Purpose: Serves as base class for specialized commands. Derived classes 
can override parseCommand ( } to handle anomolies in xml command 
format and execCommand ( ) to carry out the purpose of the command. 

* 4-4 4 * 4 4 4 4 4 4 * 4 * 4 > 4 4 4- 4 4 4 4 4 4 4 * i 4 4 > 4 •> 4 * 4 •> 4 4 4 4 * 4 4 - •> 4 4 4 4 4- 4 4 4 4- 4 4 4 4 - > 4-4 4 •> 4 * 4 4 V 4 4 * / 
* 4 * 4 4 4 4 4 4 4 4 4 4 4 4- 4 4 4 4 4 4 4 '4 4 * 4 4 4 4 -v 4 4 4 « * * * •*• 4 * r 4 4 r 4 * * 4 ^ 4 4 4 v * 4. * * 4 ■* 4 ? * 4 V * 4' * * 4- 4 4 

Class: CXmlCmdBase 

Purpose: Provides some rudimentary functionality common to all derivatives 
of CXml Command and CXmlCommand Fact cry 

4 4-4 4***4*4 4444 44 ************* * 4 44 4 * ****** i * -4 * v 4-7- 4r r 4 t 4 7 V * V * i * * * > * y * * 4 * * * S- r J 
///////////////////////////////////////////////////////////////////////// 

CXmlCommand : : CXmlCommand { ) 
{ 

m_f ConnectRequired = true; 

} 

CXmlCommand : : -CXmlCommand ( ) 
< 

if {m_f OwnsResults m_pdocResul t s != NULL) 
delete m_pdocResult s ; 

} 

/ * v V ■*■ * •*■ * * 4 4 4 4 4 **■**-*-*** + *■»■**** + * 44 4 * * * •*• * •♦ 4 i * * 4 ■* 44 ♦ 4 -4*4*. 4-4*4 ^ 4 4 4 4- 4 *■ * * •» 4 4 * - 

FUNCTION : initThis 

CLASS : CXmlCommand 
DESCRIPTION: Object initializer. Empties command name and pa rm list. 

•> V 4 * * V 4 •.* * * •.* * * 4 •> V 4 V * * 4 4- 4 •*• 4 + * + 4 4 I 4- 4 V i * 4 4" 4 -j J- 4 ~ •> v 4 *• * v 4 * 4 v 4 4 * 4 - .5 ■ * i +• •> 4- 4 4 •> V •» 4- - ♦ * >•«••♦ / 

void CXmlCommand : : initThis ( ) 
{ 

m_strCommand = ; 
m_pdocResults = NULL; 
m_pcoOwner = NULL; 
m_f OwnsResul ts = false; 
m_mapParms .clear ( ) ; 

} 

CXmlDocument + CXmlCommand getResults (bool f Ta KeOwner Ship ) 
{ 

m_f OwnsResul ts = ! f TakeOwnerShip ; 
return m_pdocResul t s ; 

} 
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void CXmlCommand : : se tOwner ( CComOb jectRootBa se + pcoOwner) 
{ 

m_pcoOwner = pcoOwner; 

} 

J * * $ •>■ * k <• A > * * •> * r * * •*■ A * * -r * + * + •*• * + * * * -r A ••• * * A A **• A * V * * *f * •* * A •;• •* * •'• i * * * * * * -«r A * * A •>• A 

FUNCTION : parseCommand 
CLASS : CXmlCommand 

DESCRIPTION: This function can be overridden by derived classes. Base implementation 
moves xml command name and parm name/value pairs into member variables. 

PARAMETERS: pdoc - A CXml Document object containing parsed' Mm! . 

RETURNS: true on success. 

x v + *■ * i ~ A- * A * ■> -t- * *■ -> A- ■> * -r *• A- + * > + * + > V ■* A 'r a- -f * * * * 4. ■> <■ > 4. ■> ^- .i * y v + v f >• 4- ■> 4- ■> * •> * > *. y v . r A- -v * i j 

bool CXmlCommand :: parseCommand (CXmlDocument * pdoc) 
{ 

bool fSuccess = false; 

string strTag; 
string strAttr; 
string strValue; 

initThis ( ) ; 

try 
{ 

CXmlElement xmlRoot; 
pdoc->getCurrent (&xmlRoot) ; 

// root tag must be "command" 
xmlRoot . getTag ( strTag) ; 

if { stricmp ( strTag . c_str () , "command") != 0) 
{ 

m_emLast , setError ( "Document tag must be \ " command\ " . " ) ; 
throw E_ F A I L ; 

} 

// the command must have a "name attribute 

if {xmlRoot . getAttribute ( "name" , strAttr) false) 

{ 

m^emLast . setError ( "Command tag must have a \"name\" attribute."); 
throw E_FAIL; 

} 

m_strCommand = strAttr; 

/ / get each par arne ter 
CXmlElement xmlParm; 

bool f Found = xmlRoot . get Fir st { txmlParm) ; 

while (f Found) 

{ 

// parms have a tag of "parm" 
xmlParm. getTag (strTag) ; 

if { stricmp { strTag . c_str {) , "parm") ~= 0) 
{ 

// parms must have an attribute of "name" 

if (xmlParm. getAttribute ( "name", strAttr) == false) 

{ 

m_emLast . setError { "Parm tags must have a \"name\" attribute."); 
throw E__FAIL ; 

} 



TOUPPER(strAttr) ; 
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xmlParm. get Text ( strValue ) ; 
m_mapParms [ st rAt tr ] = strValue; 

} 

/ / next, p a i m 

f Found = xmlRoot . getNext { &xmlParm) ; 

} 

fSuccess = true; 

} 

catch (...) 

{ 

} 

return fSuccess; 

} 

I V '> •«.• * .*• -r * > * •* + > V » - r * * -r i * 'A •»• I h. -4 <• -i •> V * + * a' 4. ■> 4- J, 4, •> V •> <• •> -v 4 V -r ■* 4. 4- 4. 4.. 4 4- •>■ \- -i \. -y *■ 4- •.* 4- 4- 4- 

FUNCTION : execConunarid 
CLASS : CXml Command 

DESCRIPTION; This function should be overridden by derived classes. It can 
be used to carry out the function of a command. 

PARAMETERS: 

RETURNS: tiue on success 

* * * V T v r .*, r ■• * ■? -v y V V t -t - - y * r * * > r -r y * * t****;*******************;* * * + * * * *. * * * * * T * * '.V T ■«■; * * / 

bool CXml Command : : execCommand { ) 
{ 

return true; 

} 

j » y 4; -;. y .:. K + * .i i- ^ -i, 4. ^- > ... ? .;. 4- .!. j. -i- 4. j- „- 4, - * * ^ * .J. + •»- * * * * * + 4, * 4. y * J 4- * * jr + * + * y 4; + + * * 4 -i, * * jr * * y + 

FUNCTION : ge t Par m 

CLASS: CXml Command 

DESCRIPTION: letrieves a parm* a value by name. 

PARAMETERS: pszParmName - name of parm to retrieve 

strPa.rmVaJ.ue ~ string receiving the parm's value. 

RETURNS : 

V * V -J- * -r A «• A H'i V > i- «■ V "i * -V V •*• .* 4- 1 •< ■><•.; i Jr t y V * * ■}■ .*■ -r * 4, * -l 4; i V •> V * A r * * A •<• •„ * 4.. •> 4. * -4- •> J. ■> .J. 4- j, j 

bool CXmlCommand :: get Parm (LPCSTR pszParmName, string & s tr ParmValue ) 

{ 

bool f Fou n d = I a 1 s e ; 

map<string, s tr ing> : : i ter a tor itParms; 

string strKey = pszParmName; 
TOUPPER(strKey) ; 

itParms = m_mapPa rms . f ind ( s t r Key ) ; 
if {fFound - itParms !- m_mapParms . end ( ) ) 
strParmValue - (* i t Parms ). second; 

else 

strParmValue = 
return fFound; 

} 

////// ////////// //////////////////////////////////■////////////////////// 
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CXmlCommandFactor y : : CXml Comma ndFa c tor y { FACTOR YMAP * pmapFactories , int nNumFactor yEntr ies ) 
{ 

m_pmapFactor ies = pmapFactories; 

m_nNumber FactoryEntr ies = nNumFactoryEntr ies ; 

} 

I •? v 4> -V 7 * i + > v > *i # v » t v * * r V + -V -> * 4- *• * r * * * + * * -V * ■.* 4- * * + ■> -tf^rf'tf-V-r*-* ■*■ r -V • ■* * * 

FUNCTION: createCoramand 

CLASS : CXmlCommandFactory 

DESCRIPTION: Creates a command based on the passed in xml data, 

PARAMETERS: bs tr Xml Command -• contains xml data that is a command 

RETURNS : the new CxlComraand 

•i. v * V + >• + 4- , J. 4. A- •» -V ■* * V t A" * V r •.* + '* ■*-■•> * * ■».■ > "V + "i * * *' 7- *■ •> * -i > + > 4* "Jf "V T -A- •>• * * '*' + ■»• •*• * •* + ■* 4,- •> v * ■*; '!■ *■ 4- •*• 4 

CXmlCommand * CXmlCommandFactory :: createCommand ( BSTR bstrXmlCommand ) 
{ 

string strCmd = (char *) _bstr_t (bstrXmlCommand) ; 
return createCommand (strCmd . c__str ( ) ) ; 

} 

I .;. ,. .„ 4. ^ 4. > 4- .}t .1. * ,. 4. 4- * .1- 4. .U + -1- * .L. 4- 4. •> - .* 4- -;- »■ .> * -:• 4.- -:- ■> ... -jr 4- + •> 4. •«, * -i. + * * 4, * ic 4. -jk- * 4- * + * 4- •> *■ ~ 4- * jr <• y 

FUNCTION : createCommand 

CLASS : CXmiCemmandFaotoxy 

DESCRIPTION: Creates a command based on the passed in xml data. 

PARAMETERS : ps -Xml Command - contains xml data that is a command 

RETURNS: the new Cxi Command 

CXmlCommand * CXmlCommandFactory :: createCommand (LPCSTR pszXmlCommand ) 
< 

HRESULT hr = S_OK; 

b o o 1 f S u c c e s s = false; 

CXmlCommand * pcmdXml - NULL; 
CXmlDocument * pdocXml = NULL; 

try 
{ 

pdocXml = new CXmlDocument (pszXmlCommand) ; 

if ( ! pdocXml->isReady ( ) ) 

{ 

string strError; 

pdocXml->getPar serError (strError) ; 
m_emLast . clear ( ) ; 

m_emLast << "XML Parser Error [" << strError << " ] " ; 

} 

else 

pcmdXml = crea teCommand ( pdocXml ) ; 

} 

catch (HRESULT hrError) 
{ 

m_emLast . clear ( ) ; 

m_emLast << "Unable to create IStream. hr = [" << std::hex « hrError << "]"; 

} 

return pcmdXml; 

} 
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FUNCTION : createCommand 

CLASS : CXmlCommand Factory 

DESCRIPTION: Creates a command based on the passed in :%ml data. 

PARAMETERS; pdoc - contains xml data that is a command 

RETURNS: the new C:'.l Command 

r v 7 * » V r * * + *■ * * -r * 7 * » * * r «• *■■«•*•> * -> + t *■ ?• V j v i * i -v *■■>-**•** ***t-v***-** * t -i; * ? * * + * v ? + * v * * •*■ r •>■ * / 

CXmlCommand * CXmlCommandFactory createCommand {CXmlDocument * pdocXML) 
{ 

booi fSuccess = false; 

CXmlCommand * pcmdXml = NULL; 

string strTag; 
string strAttr; 

try 
{ 

// get the command 
CXmlElement xmlRoot; 
pdocXML->getCur rent UxmlRoot) ; 
xmlRoot . getTag { strTag) ; 

if { stricmp ( strTag . c_str () , "command") != 0) 
{ 

m_emLast . setErr or ( "Document level tag is not \ " command\ " " ) ; 
fSuccess = false; 

} 

e 1 s e ■ 
fSuccess - true; 



if (fSuccess) 
( 

try 
{ 

xmlRoot . get At tribute ( "name" , strAttr ) ; 

} 

cacch(. . . ) 
{ 

m_emLast . setError ( "XML is missing command name attribute."); 
fSuccess = false; 

} 



if (fSuccess) 
{ 

//' create the command, last error is set if unsuccessful 
pcmdXml = createCommandByName (strAttr . c_str ()} ; 
if (fSuccess = (pcmdXml != NULL)) 

fSuccess = pcmdXml~>parseCommand (pdocXML) ; 

} 

} 

ca ten (_com_er ror & e) 

m_emLast .setError (e ) ; 
fSuccess = false; 

catch ( ... ) 



m_emLast . setError ( "Unknown exception raised."); 
fSuccess - false; 
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if ( ! f Success) 
{ 

if {pcmdXml != NULL) 
{ 

string strError; 

pcmdXml~>getLastError (strError) ; 
m_emLas t .setErr or (strError. c_s tr ( ) ) ; 
delete pcmdXml; 
pcmdXml = NULL; 

} 

} 

return pcmdXml; 

} 

FUNCTION : cr ea teCommandByName 

CLASS: CXmlCommandFactory 

DESCRIPTION: Searches factory map provided by derived class and calls a 
found factory. Derived class can oven ide this function. 

PARAMETERS: pszCcnimandrJaroe - the name of the command to instantiate . 

RETURNS: the newly created CXml Command . 

"*■' •> *■ * * + *■ + * •'• ■* * -r ft * * •!- * ■<■ * *■ v ■'■ ■*• •>• -i- + + -f *: r * •* -i- -ir •'• * * •* - ■*-->* -i- -t •« •*• * -s. -i- ■> i- •> + * ■> r * * * * ■'■ > •'• / 

CXmlCommand * CXmlCommandFactory :: createCommandByName (LPCSTR pszCommandName ) 
{ 

CXmlCommand + pcmdXml = NULL; 

FACTORYMAP * pfactoryCmd = (FACTORYMAP *) bsearch { (void + ) pszCommandName, 
(void *) m_pmapFactories , 
m__nNumber Factory Entries , 
sizeof (FACTORYMAP) , 
compareEntr y ) ; 

if (pfactoryCmd != NULL) 

pcmdXml - (* (pf actoryCmd->m_pf uncFactory ) ) () ; 

if (pcmdXml == NULL) 
{ 

m_emLast . clear ( ) ; 

m_emLast << "(" << pszCommandName << "] is not a recognizable command."; 

} 

return pcmdXml ; 

) 

int CXmlCommandFactory :: compareEntry (const void * pszKev, const void + pFactoryEntr y ) 
{ 

return stricmp (( const char *) pszKey, ( ( FACTORYMAP + ) pFactor yEntry ) ->m__pszCommand) ; 

} 
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#ifndef _XmlParser_h 
#define _XmlParser_h 

/* A * * * A A * * * * * * * A * -V * * * A * k * A * * * * A * * * A * * * V * * * A A * * A' * * 

D e p e nden ci e s - t he f o 1 1 ow i ng s h ou 1 d b e s t d a 1 x . h 

# import "msxml.dll" 

tinclude <vector> 
#include <string> 
using namespace std; 

This file implements a wrapper around msxml.dll. Msxml.dll is an in proc COM 
xml parser. The -wrapper simplifies the view of an xml tree with the following. 

1. Encapsulates document construction with constructors that take IStream, LPCSTR, 
or BSTR. IPersist Stream and iStream manipulation occurr internally. 

2. Provides an element stack on the document, allowing a caller to push a new 

root element. This allows the document to be passed to recursive routines working 
down the element tree. 

3. Collapses an element tag and its child text element into one element with a 
tag and a text attribute. 

4. Provides child iteration functions off of the element. This hides the extra steps 
needed to manipulate the COM object enumerators. 

* * A- * A * A A A A * A * A * A A A A AAA A A- A A A A A A A A A A A A A A A A A A A A * A A A A A A A A- A A A A A A A A A A A A A A A A A' A A A A A A A -A A A A- *'/ 
//////////////////////////////////////////////////// 

// CXml Element 
class CXmlElement 

{ 

friend class CXmlDocument; 

protected: I 
MSXML: : IXMLDOMElement Ptr m_pIElement ; 

int m_nltemldx; 

publ ic : 

CXmlElement () ; 

CXmlElement ( const CXmlElement & elRight); 
CXmlElement (MSXML: : IXMLDOMElementPtr & pIElement); 
-CXmlElement () ; 

CXmlElement & operator= (MSXML :: IXMLDOMElementPtr pIElement); 
CXmlElement' & operator^ (const CXmlElement & elRight); 
void getTag (string & strTag) ; 

bool getAttribute (LPCSTR pszAttribute , string & strAttribute) ; 

void setAttribute (LPCSTR pszAttribute, _variant_t vValue) ; 

void setAttribute (LPCSTR pszAttribute, string & strValue); 

void setAttribute (LPCSTR pszAttribute, long lvalue); 

bool setText (LPCSTR strText, CXmlDocument * pxmlDoc = NULL); 

void getText (string & strText); 

bool addChild (CXmlElement * pxmlElement); 

bool getFirst (CXmlElement * pxmlElement); 

bool getNext (CXmlElement * pxmlElement); 

bool getFirst Item (LPCSTR pszTag, CXmlElement * pxmlElement) ; 
bool getNext Item (LPCSTR pszTag, CXmlElement * pxmlElement) ; 
long toLong ( ) ; 

}; 

////////////////////////////////////////////// 

// CXmlDocument 
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#define NOVALUE ( (LPCSTR) NULL) 

typedef vector<CXmlElement > CStackElements ; 

class CXmlDocument 



friend class CXmlElement; 



protected : 



MSXML: : IXMLDOMDocumentPtr 
CStackElements 

bool 
bool 



m_pIDoc ; 
m_stackCurrent ; 
m_f Ready ; 
m_f UpperCaseTags ; 



public : 

CXmlDocument ( ) ; 
CXmlDocument (LPCSTR pszXml); 
CXmlDocument ( IStream * pIStream) ; 
-CXmlDocument () ; 

bool attach {MSXML :: IXMLDOMDocumentPtr spXmlDoc) ; 
bool attach (CXmlDocument & docXml) ; 
bool isReady ( ) ; 

bool loadDocument (LPCSTR pszXml); 

bool getParserError (string & strError) ; 

void createElement (LPCSTR pszTag, LPCSTR pszValue, CXmlElement * pxmlElement); 
void createElement (LPCSTR pszTag, long lvalue, CXmlElement * pxmlElement) ; 
void createElement (LPCSTR pszTag, _variant_t vValue, CXmlElement * pxmlElement); 
bool addChild (CXmlElement * pxmlElement); 

bool addChild (LPCSTR pszTag, LPCSTR pszValue = NULL, CXmlElement * pxmlElement = NULL) 

bool addChild (LPCSTR pszTag, _variant_t vValue, CXmlElement * pxmlElement = NULL) ,- 

bool getXML(char * pszXml, long * plBuf fSize) ; 

bool getXML (string & strXml) ; 

bool getRoot (CXmlElement * pxmlElement); 

void pushCurrent (CXmlElement * pxmlElement); 

void popCurrent ( ) ; 

void getCurrent {CXmlElement * pxmlElement); 
void setTagCaseToLower { ) ; 



nline void CXmlElement :: setAttribute (LPCSTR pszAttribute , _variant_t vValue) 
_ASSERT(m__pIElement != NULL) ; 

m_pIElement- >setAt tribute {_bstr_t (pszAttribute) , vValue) ; 



nline void CXmlElement :: setAttribute (LPCSTR pszAttribute, string & strValue) 
setAttribute (pszAttribute , _variant_t (strValue . c_str ( ) ) ) ; 



nline void CXmlElement :: setAttribute (LPCSTR pszAttribute, long lvalue) 

setAttribute (pszAttribute, (char *) (_bstr_t) _variant_t (( long) lvalue) ) ; 



nline void CXmlElement :: getTag ( string & strTag) 

_ASSERT(m_pIElement != NULL) ; 

strTag = (char *) m_pIElement- >tagName ; 

return ; 



nline CXmlElement & CXmlElement :: operator= (MSXML :: IXMLDOMElementPtr pIElement) 

m_pIElement = pIElement; 
m_nltemldx = 0; 
return *this; 
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nline CXmlElement & CXmlElement : : operator= ( cons t CXmlElement & elRight) 

m_pIElement = elRight . m_pIElement ; 
m_nltemldx = 0; 
return *this; 



nline bool CXmlElement :: addChi Id {CXmlElement * pxmlElement) 
_ASSERT(m_pIElement != NULL) ; 

return m_pIElement - >appendChild (pxmlElement- >m_pIElement) != NULL; 



nline bool CXmlElement :: getFirst (CXmlElement * pxmlElement) 

_ASSERT(m_pIElement != NULL) ; 

m_nltemldx = 0; 

return getNext (pxmlElement ) ; 



inline bool CXmlElement :: getFirst Item (LPCSTR pszTag, CXmlElement * pxmlElement) 

_ASSERT(m_pIElement != NULL) ; 
nwiltemldx = 0; 

return getNext Item (pszTag , pxmlElement) ; 



inline long CXmlElement :: toLong ( ) 

_ASSERT(m_pIElement != NULL) ; 

string strText; 
getText ( strText) ; 
if (strText . size ( ) ) 

return atol ( strText . c_str ()) ; 

else 

return 0; 



nline void CXmlDocument : : setTagCaseToLower ( ) 
m_f UpperCaseTags = false; 



nline bool CXmlDocument :: isReady ( ) 
return m_fReady; 



nline bool CXmlDocument :: addChild (CXmlElement * pxmlElement) 
_ASSERT(m_pIDoc != NULL) ; 

return m_stackCurrent [0 ] . addChild (pxmlElement ) ; 



nline bool CXmlDocument :: getRoot (CXmlElement * pxmlElement) 
bool f Success; 

if (f Success = m_pIDoc != NULL && m_f Ready && m_stackCurrent . size ( ) > 0) 
♦pxmlElement = m_stackCurrent [ 0] ; 

return f Success; 
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inline bool CXmlDocument :: attach (CXml Document & docXml) 

{ 

CXmlElement elCurrent; 

docXml . getCurrent (fcelCurrent) ; 

bool fSuccess = attach (docXml . m_pIDoc) ; 

if (fSuccess) 

pushCurrent (&elCurrent) ; 
return fSuccess; 

} 

#endif 
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S include "stdafx.h" 
# include "zipUtil .h" 

CZipUtil: :CZipUtil () 

{ 

} 

CZipUtil : : -CZipUtil ( ) 

{ 

} 

CZipUtilXceed: : CZipUt ilXceed ( ) 
{ 

HRESULT hr = m_spZip . Crea telns tance ( uuidof (XZip : : XceedZip) ) ; 

if (FAILED (hr) ) 
{ 

CLogMsgEvent msg ( LCEV_GENERIC , S VRTY_WARNING ) ; 

msg << "Unable to Instantiate XceedZip. Error = [Ox" << std::hex << hr << " ] " ; 
msg . Post (_logAll ) ; 

} 

} 

bocl CZipUtilXceed :: unzipFile (LPCSTR pszZipFile, LPCSTR ps zTargetDir , unsigned short * 
nFlags ) 

{ 

bool f Success = true; 

m_spZip~>ZipFilename = pszZipFile; 
m_spZip~>UnzipToFolder = pszTargetDir; 

m_spZip->PreservePaths = (nFlags & Z F_UseDirec toryNames ) ? TRUE : FALSE; 
m_spZip->SkipIf Existing = (nFlags & ZF_OverWr ite ) ? FALSE : TRUE; 
XZip: : xcdEr ror eErrorCode = m_spZip->Unzip { ) ; 
it (eErrorCode != XZip : : xerSuccess ) 
I 

CLogMsgEvent rnsg { LCEVJSENERIC , SVRTY_WARNING) ; 

msg << "Error occured while unzipping file [" « pszZipFile << "] to directory ("; 
msg << pszTargetDir << " ] . Xceed Error Code = [" << (long) eErrorCode << "]"; 
msg . Post (_logA.ll ) ; 
f Success = false; 

) 



return f Success; 

} 
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flinclude "stdafx.h" 
# include "dialer.h" 

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
// CDialer 
CDialer : :CDialer ( ) 
{ 

rn_hconn = NULL; 
m_hwndOwner = NULL; 

} 

CDialer : :CDialer (LPCSTR pszPhoneEntry , LPCSTR pszPhoneBook) 
{ 

m_hwndOwner = NULL; 

m_hconn = NULL; 

if (pszPhoneEntry != NULL) 

m_str PhoneEntry = pszPhoneEntry; 
if (pszPhoneBook) 

m_str PhoneBook = pszPhoneBook; 

} 

CDialer: :~CDialer{) 

{ 

} 

bool CDialer :: i sConnected { ) 
{ 

return m_hconn != NULL; 

} 

/////////////////////////////////// / / / //////// ////'// ///////////// ///////////// 
// CDialerRAS 

static char + m_ps zConnSt a tes [ ] = { 
"OpenPort", 
"PortOpened", 
"ConnectDevice" , 
" Devi ceConnec ted" , 
"All Devices Connect ed " , 
"Authenticate", 
"AuthNotif y", 
"AuthRetry", 
"AuthCallback", 
"AuthChange Pas sword" , 
"AuthProject " , 
" Au t h L i n k S p e e d " , 
"AuthAck" , 
"ReAuthentica te " , 
"Authenticated", 
"PrepareForCallback" , 
"Wai t ForModemRese t " , 
"Wait For Callback" , 
"Proj ected" , 
"Star tAu then ti cat ion " , 
"CallbackComplete" , 
"LogonNetwork" , 
"SubEntryConnected" , 
"SubEntry Disconnected", 
"Interactive - RASCS_PAUSED" , 
"Re tryAuthent i cat ion " , 
"CallbackSetByCaller ", 
"PasswordExpired" , 
"InvokeEapUI", 
"Connected" , 
"Disconnectedt " } ; 

Udefine CONN_STATES_HAX ( sizeof (m_ps zConnS t a t e s ) / s i zee f (char *)) 
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CDialerRAS: : CDia ler RAS { ) 

{ 

} 

CDialerRAS: :CDialerRAS (LPCSTR pszPhoneEntry, LPCSTR pszPhoneBook) 
rCDialer (pszPhoneEntry, pszPhoneBook) 

{ 
} 

unsigned lonq CDialerRAS :: getNotif icationMessId ( ) 
{ 

unsigned long nMessId = RegisterWindowMessageA (RASDIALEVENT) ; 
if (nMessId == 0) 

nMessId = WM__RASDI ALEVENT ; 
return nMessId; 

} 

void CDialerRAS :: logNot if ication (unsigned long IRasStatus, unsigned long dwError) 
{ 

if (dwError == 0} 
{ 

CLogMsgEvent msg { LCEV_G£NERIC , SVRTY_INFO) ; 

if {IRasStatus < CONN_STATES_MAX ) 

{ 

msg << " RAS Dialing State = [" « m_ps zConnStates [ IRasStatus ] << "]"; 
msg . Post (_logAll ) ; 

} 

if (IRasStatus == RASCS_Au thent ica ted ) 

PostMessage (m_hwndOwner , WMUSER_CONNECTED , 0, 0); 

} 

else 
{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_WARNING) ; 
char pszError [256] ; 

RasGetErrorStr ing (dwError , pszError, 256); 
msg << " RAS Error = [" << pszError << "]"; 
msg . Post (_logAll ) ; 

PostMessage (m_hwndOwner , WMUSER_COHNECTED, 0, dwError); 

) 

} 

bool CDialerRAS : : ge t Entry PhoneN umber (LPCSTR pszEntry, string & s t r PhoneNumber ) 
{ 

stringstream s t rmPhoneNumber ; 
RASENTRY * pentryRas; 

DWORD dwBuffSize - sizeof (RASENTRY) ; 

unsigned char * pBuff = new unsigned char [dwBuffSize] ; 
memset (pBuf f , 0, dwBuffSize); 
pentryRas = (RASENTRY + ) pBuff; 
pentryRas->dwSize - sizeof { RASENTRY ) ; 

DWORD dwErr = Ra sGetEntryPr oper ties ( NULL, pszEntry, pentryRas, SdwBuffSize, NULL, 0); 

// if buffer was to small try again 

if (dwErr) 

{ 

delete [] pBuff; 

p Bu f f = ne w u n signed char [dwBuffSize]; 
memset (pBuff, 0, dwBuffSize); 
pentryRas = (RASENTRY *) pBuff; 
pentryRas->dwSi ze - sizeof (RASENTRY) ; 

dwErr = Ra sGe t En t r yPropert ies ( NULL, pszEntry, pentryRas, SdwBuffSize, NULL, 0); 

} 
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// got a real error 

if (dwErr) 

{ 

char pszError [256]; 

RasGe tErrorString (dwErr , pszError, 256); 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_WARNING) ; 

msg << "getEntryPhoneNumber ( ) Error = [" << pszError << "]"; 

msg . Post (_logAll ) ; 

} 

else 
{ 

if (pentryRas->dwf Options & RASEO_UseCount r yAndAreaCodes ) 

strmPhoneNumber << pentr yRa s->dwCount r yCode << pentr yRas->szAreaCode ; 
strmPhoneNumber << pentr yRas->szLocalPhoneNumber ; 
strPhoneNumber = strmPhoneNumber . str () ; 

} 

if (pBuff != NULL) 
delete [] pBuff; 

return dwErr == 0; 



bool CDialerRAS :: connect ( ) 
{ 

// todo: this is weird way to dial a phone book entry. I could only get connects 
// when 1 used a phone number only. So this routine retrieves the user, password, and 
// phone number from the default phone took and then does a modem dial to get 
connected . 

//A better way to do it would be to just use the entry name in the Ra s Di a I ( ) call but 
// I couldn't get it to authenticate . 

RASDI ALPARAMS parmsRas; 
string StrPhoneNumber; 
BOOL fPassword; 

// get user and password for. the entry 
memset ( sparmsRas , 0, sizeof (parmsRas )} ; 
parmsRas . dwSize = sizeof (parmsRas ) ; 

strcpy (parmsRas . s zEntr yName , m_str PhoneEn tr y . c_str ( ) ) ; 

DWORD dwError = RasGetEntr yDia 1 Params (NULL, sparmsRas, &fPassword); 

if (dwError) 

goto errorConnect ; 

if ( ! getEntryPhoneNumber (parmsRas . s zEntr yName, strPhoneNumber ) ) 
return false; 

strcpy (parmsRas . s z Ph on eN umber , strPhoneNumber . c_str ( ) ) ; 
parmsRas . szEntryName [ 0] = 0; 
parmsRas . szDomain [ 0 ] = 0; 

if (dwError = RasDial (NULL, NULL, ^parmsRas, -1, m_hwndOwner, Sm_hconn) ) 
goto errorConnect; 

return true; 

errorConnect : 

char pszError [256]; 

RasGetErrorString (dwError , pszError, 256); 
CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_WARNING) ; 
msg << "RasDial Error = [" << pszError << " ] " ; 
msg . Post (__logAl 1 ) ; 
return false; 



bool CDialerRAS :: disconnect ( ) 
{ 

DWORD dwError - NULL; 
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bool f Success = true; 
if (m_hconn != NULL) 
{ 

if (dwError = Ra sHangUp (m_hconn ) ) 
{ 

char pszError [256] ; 

RasGetErrorString {dwError , pszError, 256); 
CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_WARNING) ; 
msg << "RasHangUp Error = [" << pszError << "]"; 
msg . Post (_logAll } ; 
fSuccess = false; 

} 

} 

m_hconn = NULL; 
return fSuccess; 

} 

//////// ///////////\ / /f\OW/////////W/// ///////////////////////////// /////////// 

// CDialerWinlnet 

CDialerWinlnet : : CDialerWinlnet ( ) 

{ 

} 

CDialerWinlnet : : CDialerWinlnet (LPCSTR pszPhoneEntry , LPCSTR ps z PhoneBook } 
rCDialer {pszPhoneEntry, ps zPhoneBook ) 

{ 

} 

bool CDialerWinlnet: : connect ( ) 
{ 

bool fSuccess; 

DWORD dwError = Internet Dial (m_hwndOwner , "TXU", INTERNET_AUTODIAL_FORCE_UNATTENDED, 

(unsigned long *} &m_hconn, OL); 
if (! (fSuccess = dwError 0)) 
{ 

CLogMsgEvent msg (LCEV_GENERIC, SVRTY_WARNING ) ; 

msg « " Internet Dial Error = [" << std::hex << dwError << std::dec << "]"; 
msg . Post (_logAll ) ; 

} 

PostMessage (m_hwndOwner , WMUSER_CONNECTED , 0, dwError); 
return fSuccess; 

} 

bool CDialerWinlnet: : disconnect () 
{ 

bool fSuccess = true; 
DWORD dwError = 0; 

if (m__hconn != NULL) 
{ 

dwError = Inter netHangUp (( unsigned long) m_hconn, NULL); 

if (! (fSuccess = dwError 0)) 

{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_WARNING ) ; 

msg << "InternetHangUp Error = [" << std::hex << dwError << std::dec << "]"; 
msg . Post (_logAll ) ; 

) 

) 

return fSuccess; 

} 
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Ififndef _dialer_h 
fldefine _dialer_h 

Unclude "ras.h" 
^include "wininet.h" 

class C Dialer 
{ 

protected : 

HRASCONN m hconn; 



p u b 1 i C : 
HWND 
string 
string 



m_hwndOwner ; 
m_str Phone Book ; 
m_strPhoneEntry ; 



public : 

CDialer {) ; 

CDialer (LPCSTR ps zPhoneEntr y , LPCSTR pszPhoneBook = NULL) 
virtual -CDialer (); 
virtual bool connect ( ) = 0; 
virtual bool disconnect () = 0; 
virtual bool i s C on n e c t e d ( ) ; 



class CDialerRAS : public CDialer 
{ 

public : 

CDialerRAS ( ) ; 

CDialerRAS (LPCSTR ps zPhoneEntry , LPCSTR pszPhoneBook = NULL ) ; 
unsigned long getNotif ica t ionMess Id ( ) ; 

void logNoti f ica tion ( unsigned long IRasStatus, unsigned long dwError); 
virtual bool connect () ; 
virtual bool disconnect () ; 

bool getEnt r yPhoneNumber (LPCSTR pszEntry, string & str PhoneNumber ) ; 

) ; 

class CDialerWinlnet : public CDialer 
I 

public: 

CDialerWinlnet ( ) ; 

CDialerWinlnet (LPCSTR ps z PhoneEntr y , LPCSTR pszPhoneBook = NULL) ; 
virtual bool connect () ; 
virtual bool disconnect () ; 



$ e n d i f 



C:\Documents and Settings\b illyhe \My . . . \LCServices \LCKioskClient \Encryptor . cpp 



1 



// En crypt or . cpp : implementation of the CEncryptor class. 
/ / 

/ / / / / / / / / / / / /' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
^include "StdAfx.h" 
#include " Encr yptor . h M 
#include <time.h> 

Hifdef _DEBUG 
#undef THI S_FI LE 

static char THIS_FILE[]= FILE ; 

#eridif 

////////////////////////////////////////////////////////////////////// 
/ I Const rue t ion /Des true t ion 

/////////////////////////// /////////////////////////////////////////// 

CEncryptor: : CEncryptor { ) 
{ 

m_strDef aultKey = "phepmagi"; 

} 

FUNCTION: Encrypt 

CLASS: CEncryptor 

DESCRIPTION: Encrypts an a sell string into a .series of ascii hez dig it: s. 

PARAMETERS'- : pszl'n - pointer to string to encrypt 

pszKey - encryption key, this parameter may be null, in which 

case a default encryption key is used. 
strOut - reference to a string that will receive the encryption 

results . 

RETURNS: true on success 

false on error 

?• *+•*■»•».■ * * »+ + *jr* + ry* r ■•■ r + * * + * + * + * + r. ■•■ + * * -»- + v * + - r > * + •>- -r ■>■ *• - * * - r * * ~ r. -■, + r •> 

bool CEncryptor : : Encrypt (LPCTSTR pszln, LPCSTR pszKey, string £■ strOut) 
{ 

strOut = ""; 

string strKey - pszKey == NULL ? m_s tr Def aul t Key : pszKey; 
int nKeyLen = s trKey . si ze ( ) ; 
int nKeyPos = -1; 

srand ( (unsigned ) time (NULL) ) ; 
int nOffset = rand(} % 2 55 ; 

char pszBuf f [ 4 ] ; 

sprint f (pszBuf f , "%02x", nOf f set) ; 
strOut += pszBuff; 

char chKey; 

for (int i = 0; pszln[i] != 0; i++) 
{ 

int nSrcAscii = (pszln[i] + nOffset) % 25 5; 

if (nKeyPos < nKeyLen - 1) 
{ 

nKeyPos++ ; 

chKey = strKey [ nKeyPos ] ; 

) 

else 
{ 

nKeyPos = -1; 
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nSrcAscii A = chKey; 

sprint f (pszBuf f , "%02x", nSrcAscii) 
strOut += pszBuff; 
nOffset = nSrcAscii; 



return true; 



} 



FUNCTION: Decrypt 
CLASS: CEncryptor 

DESCRIPTION: Given encrypted data, decrypts back to its original form. 

PARAMETERS: pszln - pointer to encrypted data. 

pszKey ~ pointer to key that wa? used to encrypt the data. This 

may be NULL in which case a default key is used. 
strOut - reference to a string that will receive the decrtyped 

data. 

RETURNS: true - no errors 

false - an error occur ed 

bool CEncryptor :: Decrypt (LPCTSTR pszln, LPCSTR pszKey, string & strOut) 
{ 

string strKey = pszKey -= NULL ? " " : pszKey; 
if { strKey . size ( ) ===== 0) 

strKey = m_strDef aultKey ; 

strOut = ""; 

int nSrcPos - 2; 
int nKeyPos = -lu- 
string strSrc = pszln; 
int nSrcLen = strSrc . size ( ) ; 
int nKeyLen = s trKey . si ze ( ) ; 
int nSrcAscii = 0; 
int nTmpSrcAscii = 0; 

int nOffset; 

if (AsciiHexToInt (strSrc . substr (0, 2), snOffset)) 
return false; 

char chKey; 



do 
{ 



if (AsciiHexToInt ( strSrc . substr (nSrcPos , 2), &nSrcAscii)) 
return false; 

if (nKeyPos < nKeyLen - 1) 
{ 

nKeyPos +* 1; 

chKey = strKey [nKeyPos] ; 

} 

else 
{ 

nKeyPos = -1; 
chKey = 0; 
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nTmpSrcAscii = nSrcAscii A chKey; 

if (nTmpSrcAscii <- nOffset) 

nTmpSrcAscii += 255 - nOffset; 

else 

nTmpSrcAscii - = nOffset; 

strOut += (char ) nTmpSrcAscii ; 
nOffset - nSrcAscii; 
nSrcPos += 2; 
} while (nSrcPos < nSrcLen) ; 



return true; 



Ascix HexToInt 



FUNCTION 
CLASS 
DESCRIPTION 



CEncryptor 

Helper function that takes a string of a sell hex digits 

(ie. "EF34DC") and returns "he binary decimal r epresenta t ior 



PARAMETERS: ps z St ring - ascii hex digits to convert 

pnAnswer - pointer to an int. chat will receive the conversion. 

RETURNS: true on error 

false on success 

short CEncryptor : : As ci iHexToIn t (LPCTSTR pszString, int * pnAnswer) 
{ 

int nPlaces = strlen (pszString ) - 1; 

short wError - FALSE; 
char cWork; 
int nAnswer = 0; 

for (int i « 0; ! wError £& (cWork = pszString[i]) != 0; i++) 
{ 

cWork = toupper (cWork) ; 
if ( ! isdigit (cWork) ) 
{ 

cWork -= 'A' - 10; 
if (cWork < 0 M cWork > 15} 
wError - TRUE; 

} 

else 

cWork &= OxOf; 

if (n PI aces) 

nAnswer += cWork * (nPlaces-*- * 16); 

else 

nAnswer +~ cWork; 



*pnAnswer = nAnswer; 
return wError ; 

} 
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/*////// ///// //////////// / //////////////////////////////// 
/////////// /////// /////////////////// /////////////////// 
Encrypt/ Decrypt Rctines 

/////////y///////Y//// ///////////;/////////////// /;///// 

Dependencies : 

# include <string> 
# i n c i u d e < I. i s t 
^include <fstream> 
ttinclude <stxstream> 
u s i n g n a m e 3 p a c e s t d ; 



//////////////////////////////////////////////////////// 
////////////////// ///////////////' ///////////////////////*/ 



#ifndef _ENCRYPTOR_H 
#define _ENCRYPTOR_H 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

class CEncryptor 
{ 

protected : 

string m_str Def aultKey ; 

short AsciiHexToInt { LPCTSTR pszString, int* pnAnswer ); 
short AsciiHexToInt ( strings strln, int* pnAnswer ) 

{return Asci iHexToInt ( s tr In . c_s tr ( ) , pnAnswer);} 

public : 

CEncryptor ( ) ; 

booi Encrypt (LPCTSTR pszln, LPCSTR psKey, string & strOut); 
bool Decrypt (LFCTSTR pszln, LPCSTR psKey, string & strOut) ; 

} ; 

#endif // EMCRY PTOR _H 
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# include "stdafx.h" 

# include " file name Delimited . h" 



CFileName Delimited : : CFileName Delimited ( ) 
{ 

rn_bDelimiter = *_•; 

} 

bool CFileNameDelimited :: append (LPCSTR pszFieldName , LPCSTR pszFieldValue) 
{ 

FILENAME_FIELD rField; 

r Field . strName = pszFieldName; 
rField . strValue = pszFieldValue; 

push_back (rField) ; 

i e turn true; 

} 

bool CFileNameDelimited :: append (LPCSTR ps zFieldName , long lFieldValue) 
{ 

char pszValue [20] ; 

ltoa (lFieldValue, pszValue, 10); 

return append (ps zFieldName , pszValue); 

} 

bool CFileNameDelimited :: append (LPCSTR pszFieldName, DATE dateValue, LPCSTR ps zDa t eForma t ) 
{ 

COleDateTime odt (da teValue ) ; 

char * psz Format = (char *) ps z Da te Forma t ; 
if (pszFormat == NULL) 

pszFormat = M %m%d%y"; 

append (pszFieldName, (LPCSTR) odt . Format (pszFormat )) ; 

return true; 

} 

int CFileNameDelimited : : get Index (LPCSTR ps z FieldName ) 
{ 

int nCount = size(); 

for (int i - 0; i < nCount; i++) 
{ 

if (( * this ) [i] . strName . compare (pszFieldName ) == 0) 
ret u r n i ; 

} 

return - 1 ; 

} 

bool CFileNameDelimi ted : : get ( int nldx, string & strValue) 
{ 

strValue = ""; 

if {nldx < 0 M nldx >- sized ) 
r e t u r n false; 

strValue - ( + this )[ nldx ]. strValue ; 

r e t u r n t r u e ; 

} 

bool CFileNameDelimited :: get ( int nldx, long & lFieldValue) 
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{ 

bool fSuccess; 
string strValue; 

if (fSuccess = get(nldx, strValue)) 

lFieldValue = a tol ( strValue . c_s tr ()) ; 

else 

lFieldValue = 0; 
return fSuccess; 

} 

bool CFileNameDelimited :: get { int nldx, DATE & dateValue) 
{ 

bool fSuccess; 
string strValue; 

if (fSuccess = get (nldx, strValue)) 
{ 

strValue . insert ( 4 , "/"); 
strValue . insert ( 2 , " /"); 
COleDateTime odt; 

odt . Parse Da teTime (strValue . c_str ( ) ) ; 
dateValue - (DATE) odt; 

} 

else 

dateValue = 0.0; 
return fSuccess; 

} 

bool CFileNameDelimited: : set ( int nldx, LPCSTR pszValue) 
{ 

if (nldx < 0) 

return false; 

// pad cut; vector up to occurence referenced 

if (nldx >= si ze ( ) ) 

{ 

for (int i - size{); i <= nldx; i++) 
append ("", "") ; 

} 

( + this ) [nldx] . strValue = pszValue; 
return true; 

} 

bool CFileNameDelimited :: set { int nldx, long lFieldValue) 
{ 

char pszValue [20] ; 

ltoa (lFieldValue, pszValue, 10); 

return set (nldx, pszValue); 

) 

bool CFileNameDelimited :: set (int nldx, DATE dateValue, LPCSTR pszDateFormat ) 
{ 

COleDateTime odt ( da teValue ) ; 

char * psz Format = (char *) pszDateFormat; 
if (pszFormat == NULL) 

psz Format = "%m%d%y" ; 

return set (nldx, (LPCSTR) odt . Forma t (ps zDateFormat )) ; 

} 
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bool CFileNameDelirnited : : setFullName {LPCSTR ps z Fi leName , bocl fClear) 
1 

string strValue ; 

if (fClear) 
c 1 e a r ( ) ; 

string strName = pszFileName; 

int nExtPos = strName . find_last_o£ ('.') ; 

if (nExtPos != str ing : : npos ) 

{ 

m_strExtension = s t rName . subs tr { nExt Pos + 1, s trName . si ze ( ) - nExtPos); 
s trName . resi ze {nExtPos ) ; 

} 

int nldx = 0; 

// parse the name our. into fields and set then; 

if (strName . size ( ) ) 

{ 

int nLastPos = 0; 
int nNewPos = 0; 

while { (nNewPos = strName . find (m_bDel imi ter , nLastPos)) ! = str ing :: npos ) 

r 

\ 

strValue = strName . substr {nLastPos, nNewPos - nLastPos); 
set (nldx++, strValue . c_s tr ( ) ) ; 
nLastPos = nNewPos + 1; 

} 

strValue = s trName . subs tr (nLastPos , nNewPos - nLastPos); 
set ( n I dx + + , strValue. c_ s t r () ) ; 

} 

// if file name st*c?tter than fields, clear values on fields 
int nSize = size () ; 
for {; nldx < nSize; nldx++) 
set (nldx, " " ) ; 

return true ; 

} 

void CFileNameDelirnited :: setExtension (LPCSTR pszExt) 
{ 

m_strExtension = pszExt; 

} 

bool CFileNameDelirnited :: getFullName ( string & str FileName) 
{ 

strFileName == ""; 

CFileNameDelirnited: .-iterator it; 

for (it = begin (); it != end{); it++) 

{ 

if {str FileName . size {) ) 

strFileName += m_bDelimiter ; 

strFileName += ( ^ it ) . s t rVa lue ; 

} 

if {m_str Ex tension . si ze { ) ) 
{ 

strFileName +=. " . " ; 
strFileName += m strExtension; 
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return t r ue ; 

} 

////////////;/;//////////////;'//////// 
// CFii eNaxn&Kiosk 

CFileName Kiosk : : CFileNameKiosk { ) 
{ 

append ( "direction" , ""); 
append (" kiosk_id" , ""); 
append ("date", "") / 

} 
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fcifndef _f ilenameDelimi ted_h 
#define _f ilenameDelimited_h 

struct FILENAME_FIELD 
i 

string strName; 
string strValue; 

FILENAME_ FIELD & opera tor ={ const FILENAME_FI ELD & rField) 
{ 

strName = r Field . strName ; 
strValue = r Field . strValue ; 
return *this; 

} 

} ; 

class CFileNameDelimited : public vector< FILENAME_FIELD> 
{ 

protected: 

char m_bDelimiter ; 

string m_strExtension; 

public : 

CFileNameDelimited { ) ; 

booi append (LPCSTR ps z FieldName , LPCSTR ps zFieldValue ) ; 
booi append (LPCSTR ps z FieldName , long lFieldValue); 

bool append (LPCSTR ps zFieldName, DATE dateValue, LPCSTR ps z Da teFormat = NULL) ; 

booi get(LPCSTR pszFieldName, string & strValue); 
bool get {LPCSTR ps zFieldName , long & lFieldValue ) ; 
bool get (LPCSTR pszFieldName, DATE & dateValue) ; 

booi set (LPCSTR pszFieldName, LPCSTR pszValue); 
booi set (LPCSTR pszFieldName, long lFieldValue); 

booi set (LPCSTR pszFieldName, DATE dateValue, LPCSTR ps z Da te Forma t = NULL) ; 

bool get(int nldx, string & strValue); 
bool get (int. nldx, long & lFieldValue); 
bool get(int nldx, DATE & dateValue); 

bool set(int nldx, LPCSTR pszValue); 
booi set (int nldx, long lFieldValue); 

booi set (int nldx, DATE dateValue, LPCSTR ps zDa teFormat = NULL); 

bool setFullName (LPCSTR pszFileName, booi f Clear = false); 
void setExtension (LPCSTR pszExt); 

bool get FullName ( string & s tr FileName ) ; 

int getlndex (LPCSTR pszFieldName); 



inline bool CFileNameDelimited :: get ( LPCSTR pszFieldName, string & strValue) 
return get ( get Index (ps zFieldName ) , strValue); 



inline bool CFileNameDelimited :: get (LPCSTR pszFieldName, long & lFieldValue) 
return get { get Index ( ps zFieldName ) , lFieldValue); 



inline booi CFileNameDelimited :: get (LPCSTR pszFieldName, DATE & dateValue) 
return get (getlndex (pszFieldName ) , dateValue); 
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inline bool CFileNameDelimited : : set (LPCSTR ps zFieldName , LPCSTR pszValue) 
{ 

return set ( get Index (ps zFieldName ) , pszValue) ; 

} 

inline bool CFileNameDelimited :: set {LPCSTR ps z FieldName , long lFieldValue) 
{ 

return set { getlndex (ps zFieldName ) , 1 FieldValue ) ; 

} 

inline bool CFileNameDelimited: :set (LPCSTR ps z FieldName , DATE dateValue, LPCSTR 
pszDateFormat ) 

{ 

return set { get Index ( ps zFieldName ) , dateValue, pszDateFormat); 

} 

//V/////// /////////////// ////////////////////// //////////// ///////////////////// 
// CFileNameKiosk 

class CFileNameKiosk : public CFileNameDelimited 
{ 

publ ic : 

CFileNameKiosk ( ) ; 

}; 

it end i f 
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// LCKioskClient . cpp : Implementation of WinMair 



// Mote: Proxy /Stub Information 

// To build a separate proxy/ stub DLL, 

// run nmake - £ LCKicskCi ientps , mk in the project directory 

#i n elude " s t d a f x . h n 

^include "resource. h" 

^include <initguid.h> 

# include "LCKioskClient . h" 

flinclude " threadMain . h" 

If include " regi s t ryKClient . h" 

#inciude "LCKioskClient i.c" 



^include <stdio.h> 

//////////////////////////////////////////////////// 
// MFC support 
CKioskClientApp _theApp; 

///////////////////////////////////////////////////// 
/ / ATL support 
CServiceModule _Module; 

////////////////////////////////////////////////.'// 
1 1 G 1 o b a 1 d e c a 1 r a t i o n s 

CLogNTEvents _logEvents ( "Kiosk Client"); 

CLogFile _logFile ( "c : \ \LCKios kCl ient . log" ) ; 

CLogDebug _logDebug; 

CLogMulti _logAll; 

string _strDef aultAlias ; 

BEGIN_OBJECT_MAP (ObjectMap) 
ENDJDBJECT_MAP{) 

LPCTSTR FindOneOf (LPCTSTR pi, LPCTSTR p2) 
{ 

while (pi != NULL && *pl != NULL) 
{ 

LPCTSTR p » p2; 

while (p ! = NULL && *p != NULL) 
{ 

if (*pl « *p) 

return CharNext (pi ) ; 
p - CharNext (p) ; 

} 

pi = CharNext (pi) ; 

} 

return NULL; 

} 

// Although some of these functions are big they are declared inline since they are only * 
used once 

inline HRESULT CSer viceModule :: Regi ster Server ( BOOL bRegTypeLib, BOOL bService) 
{ 

HRESULT hr = Colnitialize (NULL) ; 
if { FAI LED ( hr ) ) 
return hr; 



// Remove any previous service since it may point to 
// the incorrect file 
Uninstall ( ) ; 



C:\Documents and Settings\billyhe\ My . . . \LCServices\LCKloskClient \LC KioskClient . cpp 



9 



// Add service entries 

UpdateRegistryFromResour ce { I DR_LCKi os kCl i en t , TRUE) ; 

// Adjust the AppID for Local Server 01 Service 
' CRegKey keyAppID; 

LONG lRes = keyAppI D . Open ( HKEY_CLASSES_ROOT , __T { " AppI D" ) , KEY__WRITE ) ; 
if (lRes !== ERROR_SUCCESS) 
return lRes; 

CRegKey key; 

lRes = key. Open (keyAppID, _T { " { A8B06B0D-E231-11D3-B883-80F7BB000000 } " ) , KEY_WRITE); 
if (lRes != ERROR_SUCCESS) 

return lRes; 
key . Delete Value (_T{"LocalService") ) ; 

if (bService) 
{ 

key.SetValue (_T ("LCKioskClient") , _T ( "LocalSer vice" ) ) ; 
key . SetValue (_T ( "-Service" ) , _T { "Service Parameters" ) ) ; 

// Create service 
Install*); 

} 

// Add object: entries 

hr = CComModule :: Register Server (bRegTypeLib) ; 

CoUninit iali ze ( ) ; 
return hr ; 

} 

inline HRESULT CServiceModule :: Unregister Server { ) 
{ 

HRESULT hr = Colni t ia 1 i ze ( NULL ) ; 
if { FAILED ( hr ) ) 
return hr; 

// Remove service entries 

UpdateRegistr yFromResour ce { I DR_LCKios kCl i en t , FALSE) ; 

// Remove service 
Uninstall ( ) ; 

// Remove object entries 
CComModule : : Unregister Server (TRUE) ; 
CoUninit ialize ( ) ; 
return S_OK; 

} 

inline void CServiceModule :: Init {_ATL_OB JMAP_ENTRY + p, H INSTANCE h, UINT nServiceNamelD, ✓ 
const GUID 4 pi ibid) 

{ 

CComModule :: Init { p, h, plibid); 
m__bService = TRUE; 

LoadStr ing ( h, nServiceNamelD, m_s zServiceName , si zeof (m_s zSer viceName ) / sizeof * 
(TCHAR) ) ; 

// set up the initial service status 
m_hServiceStatus = NULL; 

m_status .dwServiceType = SERVICE_WIN32_OWN_PROCESS ; 

m_status .dwCurrentState = SERVICE_STOPPED; 

m_status . dwCont rolsAccepted = SERVICE_ACCEPT_STOP ; 

m_status . dwWin32ExitCode - 0; 

m_status . dwServiceSpecif icExitCode = 0; 

m__status . dwCheck Point - 0; 

m^status . dwWaitHint ~ 0; 

} 
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LONG CServiceModule :: Unlock ( ) 
{ 

LONG 1 = CComModule: : Unlock () ; 
if {1 == 0 && !m_bService) 

PostThreadMessage (dwThreadID, WM_QUIT, 0, 0) ; 

retu r n 1 ; 

} 

BOOL CServiceModule: : I sins tailed { ) 
{ 

BOOL bResult = FALSE ; 

SC_HANDLE hSCM = : : OpenSCManager (NULL, NULL, SC_MANAGER_ALL_ACCESS ) ; 

if (hSCM != NULL) 

{ 

SC_HANDLE hService = : : OpenService (hSCM, m_s zServiceName , SERVICE_QUERY_CONFIG) ; 

if (hService != NULL) 

{ 

bResult = TRUE; 

: : CloseSer viceHandle (hService) ; 

} 

: : CloseServiceHandle (hSCM) ; 

} 

return bResult; 

} 

inline BOOL CServiceModule :: Install ( ) 
{ 

if {Islnstalled ( ) ) 
return TRUE; 

SC_HANDLE hSCM = : : OpenSCManager (NULL, NULL, SC_MANAGER_ALL_ACCESS ) ; 

if (hSCM == NULL) 

{ 

MessageBox ( NULL , _T ("Couldn't open service manager") , m_s zServiceName , MB_OK) ; 
return FALSE; 

) 

// Get tlie executable file path 
TCHAR szFilePath [_MAX_PATH] ; 

: :GetModuleFileName (NULL, szFilePath, _MAX_PATH) ; 

SC_HANDLE hService = : : Cr eateService ( 

hSCM, m_szServiceName, m_szSer viceName, 
SERVICE_ALL_ACCESS, SERVICE_W IN3 2_OWN_PROCESS , 
SERVICE_DEMAND_START, SERVICE_ERROR__NORMAL , 
szFilePath, NULL, NULL, _T ( " RPCSS \ 0 M ) , NULL, NULL); 

if (hService == NULL) 
{ 

: :CloseServiceHandle (hSCM) ; 

MessageBox (NULL, _T ("Couldn't create service"), m_szServiceName , MB_0K) ; 
return FALSE; 

) 

: : CloseServiceHandle (hService ) ; 
: :CloseServiceHandle (hSCM) ; 
return TRUE; 

} 

inline BOOL CServiceModule :: Uninstal 1 ( ) 
{ 

if ( ! Islnstalled ( ) ) 
return TRUE; 

SC_HANDLE hSCM = :: OpenSCManager ( NULL, NULL, SC_MANAGER_ALL_ACCESS ) ; 
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if (hSCM NULL) 
{ 

MessageBox (NULL, _T ("Couldn't open service manager"), m_s zServiceName , MB_OK) ; 
return FALSE; 

} 

SC^HANDLE hService = : : OpenService (hSCM, m_s zServiceName , SERVICE_STOP I DELETE); 

if (hService == NULL } 
{ 

: :CloseServiceHandle (hSCM) ; 

MessageBox (NULL, _T { "Couldn ' t open service"), m_s zServiceName , MB_OK) ; 
return FALSE; 

} 

SERVICE_STATUS status; 

: :ControlService (hService, SERVICE_CONTROL_STOP , ^status); 

BOOL bDelete = :: Dele teService (hService ) ; 
: :CloseServiceHandle (hService ) ; 
: :CloseServiceHandle (hSCM) ; 

if (bDelete) 

return TRUE; 

MessageBox (NULL, _T( "Service could not be deleted"), m_szServiceName , MB_OK) ; 
return FALSE; 

} 

///////////// //////////////// ////// //////////////////////////////////////////////////// 
// Logging functions 

void CServiceModule : : LogEvent (LPCTSTR pFormat, . ..) 
{ 

TCHAR chMsg [2048] ; 
va_list pArg; 

va__star t (pArg , pFormat); 
_vstprintf (chMsg, pFormat, pArg); 
va_end (pArg ) ; 

CLogMsgEvent ( LCEV__GENERI C , -1, chMsg) . Post (_logAll) ; 

} 

//////////////////////// // / // //////////////////////////////////////////////////////////// 

// Service startup and registration 
inline void CServiceModule :: Star t ( ) 
{ 

SERVICE_TABLE_ENTRY st[] - 
{ 

{ m_s zServiceName , _ServiceMain }, 
{ NULL, NULL ) 

} ; 

if (m_bService ! : : Star tSer viceCt r IDispatcher { st ) ) 
{ 

m_bService = FALSE; 

} 

if (m__bService == FALSE) 
Run ( ) ; 

} 

inline void CServiceModule :: ServiceMain ( DWORD / * dwArgc * / # LPTSTR* /* IpszArgv */) 
{ 

// Register the control request handler 
m_status.dwCurrentState = SERVICE_START_PENDING ; 

m_hServiceSta tus ~ Regi s terSer viceCtr lHandler (m_s zServiceName , ^Handler); 
if (m hServiceSta tus == NULL) 
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{ 

CLogMsgEvent ( "Handler not installed" ). Post (_logAll ) ; 
return; 

} 

SetServiceStatus ( SERVICE_START_ PEN DING ) ; 

m_status . dwWin32ExitCode = S__OK; 
m_s tatus . dwCheckPoint = 0; 
m_status .dwWaitHint = 0; 

//' When the Run function returns, the service has stopped. 
Run { ) ; 

SetServiceStatus { SERVICE STOPPED) ; 



inline void CServiceModule :: Handler ( DWORD dwOpcode) 
{ 

switch (dwOpcode) 
{ 

case SERVICE_CONTROL_STOP: 

SetServiceStatus (SERVICE_STOP_PENDING) ; 
PostThreadMessage {dwThreadID, WM_QUIT, 0, 0) ; 



break; 






case SERVICE^ 


_CONTROL_ 


PAUSE: 


br ea k ; 






case SERVICE^ 


_CONTROL_ 


CONTINUE : 


break; 






case SERVICE^ 


_CONTROL_ 


INTERROGATE 


break ; 






case SERVICE^ 


_CONTROL_ 


SHUTDOWN : 


break; 






default : 







CLogMsgEvent ( "Bad service reques t " ) . Pos t (_logAll ) ; 

} 



void WINAPI CServiceModule: :_ServiceMain { DWORD dwArgc, LPTSTR* IpszArgv) 

_Module . ServiceMain (dwArgc, IpszArgv) ; 
void WINAPI CServiceModule : :_Handler ( DWORD dwOpcode) 

_Module .Handler {dwOpcode ) ; 



void CServiceModule :: SetServiceStatus ( DWORD dwState) 

m_status . dwCur rentState = dwState; 

: : SetServiceStatus {m_hSer viceS tatus , &m_status) ; 



void CServiceModule :: Run ( ) 

^Module . dwThreadID = GetCur rentThr eadld ( ) ; 

HRESULT hr = Colni t ia 1 i zeEx { NULL , COIN I T_MULTI THREADED ) ; 

if ( FAILED ( hr ) ) 

{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_ERROR) ; 

msg << "CoInitializeEx ( ) failed. Error - [Ox" « std::hex << hr << " ] " ; 

msg . Post (_logAll ) ; 

return; 

) 

ASSERTE(SUCCEEDED(hr) ) ; 
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// This provides a NULL DACL which will allow access to everyone. 

CSecurity Descriptor sd; 

sd . Initiali zeFr omThreadToken ( ) ; 

hr = CoInitializeSecurity (sd, -1, NULL , NULL, 

RPC_C_AUTHN_LEVEL_PKT, RPC_C_IMP_LEVEL_IMPERSONATE , NULL , EOAC_NONE, NULL) ; 
_ASSERTE (SUCCEEDED (hr) ) ; 

hr = JVIodule . RegisterClassObjects (CLSCTX_LOCAL_SERVER I CLSCTX_REMOTE__SERVER , yf 
REGCLS_MULTI PLEUSE ) ; 
_ASSERTE (SUCCEEDED ( hr ) ) ; 

//////////////// ///////////////////////////////////////// 
// MFC support 

if (_theApp . InitApplication ( ) == FALSE) 
{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_ERROR) ; 
msg << "_theApp . InitApplication ( ) failed"; 
msg . Post (_logAll ) ; 
return; 

} 

if (_theApp . Initlnstance ( ) == FALSE) 
{ 

CLogMsgEvent msg ( LCEVJ3ENERIC , SVRTY_ERROR) ; 
msg << "_theApp . Initlnstance ( ) failed"; 
msg . Post (_logAll ) •; 
_theApp . Exit Instance () ; 

r e t u r n ; 

} 

// end HFC support 

///////////////////////////////////////////////////////// 

CLogMsgEvent ( "Service started" ) .Post (_logAll) ; 
if (m_bService) 

SetServiceStatus { SERVICE_RUNNING) ; 

_theApp . Run ( ) ; 

_theApp . Exitlnstance ( ) ; 

CLogMsgEvent ("Service stopped" ) .Post (_logAll ) ; 
__Module . RevokeClassObj ect s ( ) ; 
CoUninitiali ze ( ) ; 

} 

///////////////////////////////////// 



extern "C" int WINAPI _tWinMain ( HINSTANCE hlnstance, 

HINSTANCE hPrevIns tance , LPTSTR lpCmdLine, int. nShowCmd) 

{ 

_logAll .AddLog U_logEvents) ; 
_logDebug . Enabled { false ) ; 
_logAll .AddLog ( &_logFile) ; 

flirdef _DEBUG 

_logEvents . Enable Tr an slat ion ( true ) ; 

_logDebug . Enabled ( true ) ; 

_logAll .AddLog ( &_log Debug) ; 
fiendif 

lpCmdLine = GetCommandLine { ) ; //this line necessary for AT'L MIN CRT 
_Module . Init (ObjectMap, hlnstance, I DS_SERVICENAME , & LI BI D__LCKI OSKCLI ENTLib ) ; 
Module. m bService « TRUE; 
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TCHAR szTokens[] - _T ("-/") ; 

LPCTSTR IpszToken = FindOneOf { lpCmdLine , szTokens); 

while {IpszToken ! = NULL) 

{ 

if (lstrcmpi (IpszToken, __T { "UnregSer ver " ) ) ==0 ) 
return ^Module . Unregister Server { ) ; 

//Register as Local Server 

if ( lstrcmpi ( IpszToken, _T ( "RegServer " ) ) ==0 ) 

return __Module . RegisterServer { TRUE , FALSE) ; 

// Register as Service 

if ( lstrcmpi ( IpszToken, __T ( "Service" )) = = 0 ) 

return _Module . RegisterServer (TRUE, TRUE ) ; 

// Initialize Configuration Registry Entries 
if ( lstrcmpi ( IpszToken, _T ( "InitReg" ) ) ===0 ) 
{ 

CRegis tryKClient reg; 
reg . buildlnit ial {) ; 
return 0; 

} 

IpszToken ~ FindOneOf ( IpszToken, szTokens); 

} 

// Are we Service or Local Server 
CRegKey keyAppID; 

LONG IRes = keyAppI D . Open ( HKEY_CLASSES_ROOT , _T("AppID"), KEY_READ) ; 

if (IRes != ERROR_SUCCESS) 

{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_ERROR) ; 

msg << "Unable to open VAppIDV from HKEY_CLASSES_ROOT" ; 

msg . Post (_logAll ) ; 

return IRes; 

) 

CRegKey key; 

IRes == key. Open (keyAppID, _T ( " { A8B06E0D-E2 31-1 1D3-B8 8 3- 8 0F7BB000000 } " ) , KEY_READ) ; 

if (IRes != ERROR_SUCCESS) 

{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_ERROR) ; 

msg << "Unable to open \ " { A8B0 6B0D-E23 1- 1 1 D3-B8 8 3-8 0F7 BB0OOOOO ) \ " from 
HKEY_CLASSES_ROOT/AppID" ; 
msg . Post (_logAll) ; 
return IRes; 

} 

TCHAR szValue [_MAX_PATH] ; 
DWORD dwLen = _MAX_PATH; 

IRes - key . QueryValue ( szValue , _T { "LocalService " ) , &dwLen); 

JYIodule . m_bSer vice = FALSE; 
if (IRes ===== ERROR_SUCCESS) 

_Module . m_bService = TRUE; 

// .in.i t. MFC support 

ASSERT (hPrevInstance === NULL) ; 

// AFX internal initialization 

if ( ! Af xWinlni t (hlnstance , hPrevInstance, lpCmdLine, nShowCmd) ) 

CLogMsgEvent (LCEV_GENERIC, SVRTY_ERROR, "AfxWinlnit failed.") . Post (_logAll ) ; 

else 

_Module . Start ( ) ; 
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/"/ When we get here, the service has been stopped 
.return _Module . m_status . dwWin32ExitCode; 

} 
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/■* File created by MIDI, compiler version 5.01.0164 *7 
/* ai Sun Feb 13 A 3:18:3 ? 2000 

* / 

/* Compiler settings for D: \Dev\Lif eel inic\LCSer vices \LCKioskCi lent \LCKios kCi lent . idl : 
Oicf <OptLev»i2), Wl ( Zp8, env=Win32, ms_ezt, c_ext 
error checks: allocation ref bounds_check en urn stub_data 

" i 

/ / £ l?MI DL FILE HEADING ( } 



/* verify that the <rpcndr.h> veision is high enough to compile this file* / 

if if ndef REQU I RED_RPCNDR_H_VERSION 

#define REQUIRED_RPCNDR_H_VERSION 440 

# end if 

^include "rpc.h" 
^include "rpcndr.h" 

ftifndef LCKioskClient_h__ 

^define LCKios kCl ient_h_ 

#ifdef cplusplus 

extern "C"{ 
U e n d i f 

Forward Declarations '-/ 

/* header files for imported files */' 
# include "oaidl.h" 
# include "ocidl.h" 

void RPC_FAR + RPC_USER MIDL_user_al locate { si ze_t ) ; 

voi d RPC__USER MI DL_u s er__f r ee ( void RPC__FAR * ); 



#ifndef LCKI OSKCLI ENTLib__LI BRARY__DE FINED 

#def ine LCKIOSKCLI ENTLib_LI BRARY_DE FINED 

/* library LCKIOSKCLIEHTLib -/ 
/* [helps trine? 3 [version] [uuid] V 



EXTERN_C const IID LIBI D_LCKIOSKCLIENTLib ; 

#endif /* LCK10SKCLIENTLibJLIBRARY_DEFIHED */ 

/* Additional. Prototypes for ALL interfaces * / 

/* end of Additional Prototypes 

nifdef cplusplus 

} 

Kendif 



tendif 
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If include "stdafx.h" 
# include "Logging.h" 
#include "Registry. h" 

/////////////////////////////////////// 
//////// /////////////////////////////// 
// Loo messages 

//' ///////////////////////////////////// 
/////////////////////////////////////// 
CLogMsg : : CLogMsg ( ) 
{ 

m_pszText ~ NULL; 

} 

CLogMsg: : CLogMsg ( LPCSTR pszMessage) 
{ 

m_pszText = NULL; 
if (pszMessage != NULL) 
*"this << pszMessage; 

} 

CLogMsg :: CLogMsg { string & strMessage) 
{ 

m_pszText = NULL; 
*this << strMessage; 

} 

CLogMsg : : -CLogMsg ( ) 
{ 

ReleaseBuf f er s ( ) ; 

} 

CLogMsg S CLogMsg :: Forma t (LPCSTR pszFormat, . ..) 
{ 

Clear ( ) ; 

va__list pArgs; 

va__s tar t (pArgs , pszFormat); 

TCHAR pszBuffer [1024]; 

vspr intf (ps zBuf f er , pszFormat, pArgs); 

va_end (pArgs ) ; 

*r.his << pszBuffer; 

return + t h i s ; 

} 

void CLogMsg :: Post (CLogBase & log) 
{ 

log . Post ( this ) ; 
retu r n ; 

} 

long CLogMsg: : Event () 
{ 

retu r n 0 ; 

} 

long CLogMsg :: Severi ty { ) 

i 
\ 

return EVENTLOG_SUCCESS ; 

} 

TCHAR ++ CLogMsg : rArguments (long + plArgCount) 
{ 

^plArgCount = 1; 
Text ( ) ; 

return &m_pszText; 

} 
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TCHAR * CLogMsg: : Text () 
{ 

ReleaseBuf f er s ( ) ; 

*this << * \0 ' ; 

TCHAR 4 pszText = str(); 

int nLen = pcount () ; 

m_pszText = new TCHAR [nLen + 1 ] ; 

_tcscpy (m_pszText , pszText); 

freeze (false ) ; 

return m_pszText ; 

} 

void CLogMsg : : Re lease Buffers () 
{ 

if (m_pszText != NULL) 
{ 

delete [] m_pszText; 
mjpszText - NULL; 

} 

return ; 

) 



void CLogMsg :: Clear { ) 
{ 

ReleaseBuf fers ( ) ; 
seekp (0 ) ; 
r e t u r n ; 



void CLogMsg :: appendError (_corn_error & e) 
{ 

string strError = (char *) e . Descr ipt ion ( ) ; 
HRESULT hr = e . Error { ) ; 

*this << "COM Error = [" << strError « "]. hr = [" << std::hex << hr << "]."; 

return ; 

} 

void CLogMsg :: appendError (HRESULT hr) 
i 

*this << "hr = [" « std::hex « hr << std::dec << " ] " ; 
return ; 

} 

void CLogMsg :: appendError ( CLogMsg & em) 
{ 

appendError ( (std: : strstream &) em); 

} 

void CLogMsg :: appendError (std :: strstream & strmError) 
{ 

strmError << ' \0 ' ; 

*this << s trmError . str ( ) ; 

s t rmE r r or . freeze (false) ; 

} 

void CLogMsg :: setError (_com_error & e) 
{ 

clear ( ) ; 
appendError ( e ) ; 

} 



void CLogMsg: : setError (HRESULT hr) 
{ 

clear () ; 

appendError (hr ) ; 

} 
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void CLogMsg : : setError ( LPCSTR pszError) 
{ 

clear ( ) ; 

*this « pszError; 

\ 
j 

void CLogMsg : : setError (CLogMsg & em) 
{ 

clear ( ) ; 

appendError {em) ; 

} 

void CLogMsg :: getError ( string & strError) 
{ 

*this << ' \0 ' ; 
strError • = str ( ) ; 
freeze (false ) ; 
return; 

} 

string CLogMsg :: getError ( ) 
{ 

string strError; 
*this << ' \0 ' ; 
strError = str ( ) ; 
f reeze { false) ; 
return strError; 

) 

void CLogMsg :: getError (std :: strstream & strmError) 
{ 

*this « ' \0 1 ; 
strmError << str ( ) ; 
freeze ( false ) ; 
return; 

} 

/////// ////////////////////// ////////// 

const char CLogMsgEven t : : bArgSep = ' \t'; 

CLogMsgEvent : : CLogMsgEvent ( ) 
{ 

Init () ; 

} 

CLogMsgEvent : : CLogMsgEvent (LPCSTR pszMessage) 
: CLogMsg (pszMessage) 

Init () ; 

} 

CLogMsgEvent :: CLogMsgEvent ( string & strMessage) 
:CLogMsg (strMessage) 

{ 

Init () ; 

} 

CLogMsgEvent :: CLogMsgEvent ( long lEventID, long lSeverity, LPCSTR pszMessage) 
:CLogMsg (pszMessage) 

{ 

Init () ; 

m_lEventID = lEventID; 
m__ 1 Severity ~ ISeveritv; 

} 

CLogMsgEvent :: CLogMsgEvent ( long lEventID, long lSeverity, string & strMessage) 
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: CLogMsg (strMessage ) 

{ 

Init () ; 

m_lEventID = lEventID; 
m__lSeverity = lSeverity; 

} 

CLogMsgEvent : : CLogMsgEvent ( long lEventID, long lSeverity, _com_error & e) 
{ 

USES_CONVERSION; 
Init () ; 

m_lEventID = lEventID; 
m_lSeverity = lSeverity; 

*this << "Ox" << std::hex << e. Error () << std::dec << bArgSep; 
BSTR bstrDesc = e . Description {) ; 
if (bstrDesc !•= NULL) 

*this << W2T (bstrDesc) ; 

else 

*this << " "; 

} 

CLogMsgEvent :: CLogMsgEvent ( long lEventID, long lSeverity, HRESULT hr) 
{ 

Init ( ) ; 

m_lEventID = lEventID; 

m__l Severity = lSeverity; 

*this << "Ox" << std: :hex << hr; 

) 

CLogMsgEvent : : -CLogMsgEvent ( ) 
{ 

Re lease Buffers () ; 

} 

inline void CLogMsgEvent :: I n i t ( ) 
{ 

m_lEventID = 0; 
m_l Severity = -1; 
m_wArgCount = 0; 
m_ppszArgs = NULL; 

} 

void CLogMsgEvent :: SetEvent ( long lEventID, lonq lSeveritv, LPCSTR pszMessage) 
i 

Clear ( ) ; 

m_lEventID = lEventID; 
m_ lSeverity = lSeverity; 
if (pszMessage ! = NULL) 
*this << pszMessage; 

} 

long CLogMsgEvent :: Event ( ) 
{ 

return m_l Event ID; 

} 

long CLogMsgEvent : : Severity ( ) 
{ 

if (m_lSeverity -1) 
{ 

if ( (m_lEventID & OxCOOOOOOOL) — OxCOOOOOOOL) 

return EVENTLOG_ERROR_TYPE ; 
else if (m__lEventID & Ox80000000L) 

return EVENTLOG_WARNING_TY PE ; 
else if (m_lEventID & 0x40000000L) 
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return EVEN TLOG_ IN FORMAT I ON_TY PE ; 

else 

return EVENTLOG_SUCCESS ; 

> 

else 

return m_l Sever ity; 

} 

TCHAR ** CLogMsgEvent :: Arguments (long * plArgCount) 
{ 

ReleaseBuf f ers ( ) ; 

// get temp buffer 
strstream strmTemp; 
*this << ' \0 ' ; 
strmTemp << str ( ) ; 
freeze (false) ; 

//' make sure double nulled 
strmTemp << ' \0' << ' \0'; 

TCHAR * pszText = strmTemp. str () ; 
if (*pszText) 

m_wArgCount ++ ; 

/./ make array of strings 

for (int. i = 0; pszText[i]; i + +) 

{ 

if (pszText [i] == CLogMsgEvent :: bArgSep) 
{ 

pszText[ij = 0; 
m_wAr gCount ++ ; 

} 

} 

// if data, allocate aig array 

if (m_wAr gCount ) 

{ 

int nLen - 0 ; 

m_ppszArgs = new TCHAR + [m_wArgCount } ; 
for {int i = 0; i < m_wAr gCount; i++) 
{ 

nLen = _tcslen (pszText ) ; 
m_ppszArgs [ i ] = new TCHAR [nLen + 1] ; 
_tcscpy (m_ppszArgs [ i J , pszText); 
pszText += nLen + 1; 

} 

} 

strmTemp .freeze (false) ; 

// return buffer 
*plArgCount = m^wArgCount; 
return m_ppszArgs; 

} 

TCHAR * CLogMsgEvent: : Text () 
{ 

CLogMsg : :ReleaseBuffers() ; 

// format message into tempeorary strstream 

*this << ' \0 ' ; 

std :: strstream strmTemp; 

strmTemp << "EventrOx" << stci::hex << m_lEventID << Severity:" << std::dec « 
Severity {) << " , Text:"; 

// if translation is turned on, then get message from message source 
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DWORD dwChar sReturned = 0; 

if (CLogNTEvents : :m_hMsgSrc != NULL) 

{ 

TCHAR pszBuf f [2048] ; 

dwCharsReturned = Forma tMes sage ( FORMAT _MESSAGE_FROM_HMODULE | 
FORMAT__MESS AG E_ARGUMENT_ ARRAY , 

CLogNTEvents: :m_hMsgSrc, 
m_lEventID, 

MAKELANGID(LANG_NEUTRAL, SUBLANG_ DEFAULT ) , 

ps zBuf f , 

2048, 

m_ppszArgs ) ; 

if (dwCharsReturned) 
{ 

// chop off line feed 
pszBuff [ --dwCharsReturned] = 0; 
//' move data no formated message 
if (dwCharsReturned) 

strmTemp << pszBuff << '\0'; 

) 

} 

// if translation not turned on or translation didn't work then put out argument data 

if (! dwChar sReturned ) 

{ 

strmTemp << str() << ' \0'; 
freeze ( f a 3. s e } ; 

) 

// move temp str stream into injpszTexr. and return pointer to m__pszText 

int nLength = st rmTemp . pcoun t ( ) ; 

m_pszText = new TCHAR [nLength + 1 ] ; 

_tcsncpy (m_pszText , s trmTemp . st r ( ) , nLength); 

strmTemp .freeze (false) ; 

m__pszText [ nLength] ~ 0; 

return m_pszText; 

} 

void CLogMsgEvent : : Re lease Buffers () 
{ 

CLogMsg : : ReleaseBuf f ers ( ) ; 

if (m_ppszArgs NULL) 
{ 

for (int i = 0; i < m_wArgCount; i++) 

delete [} m_ppszArgs [ i ] ; 
delete [] m_ppszArgs; 
m_ppszArgs = NULL; 
m_wArgCount = 0; 

] 

return; 

} 

////////////////////////////// ///////// 
/////////////////////////////////////// 
// Logs 

/////////////// / / ///////////////////// / 
///////// ///^/ ///////////// //////////// 

CLogBase : : CLogBase ( ) 
{ 

m_f Enabled = true; 
m__nlndent = 0; 

) 
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m^fEnabled = true; 

m__strResourceName = pszResourceName; 
m nlndent = 0; 



void CLogBase :: ResourceName (LPCSTR pszResourceName) 

m_strResour ceName = pszResourceName; 
return ; 



void CLogBase : : Post (CLogMsg + pmsgLog) 
return ; 



oid CLogBase :: Open ( ) 
return ; 



oid CLogBase :: Close ( ) 
ret u r n ; 



////////////////'/ ///////////// ///////////////////// 
H INSTANCE CLogNTEven t s : : m_hMsgSr c = NULL; 

CLogNTEvents : : CLogNTEvents { ) 
: CLogBase { ) 

{ 
} 

CLogNTEvents: : CLogNTEvents { LPCSTR pszResourceName) 
:CLogBase (pszResourceName) 

{ 
} 

void CLogNTEvents :: Post (CLogMsg * pmsgLog) 
{ 

if ( !m_f Enabled) 
return; 

HANDLE hEventSource = RegisterEvent Sour ce (NULL, m_s trResourceName . c_s tr ( ) ) ; 

if (hEventSource != NULL) 

{ 

long lArgCount; 

TCHAR pszArgs = pmsgLog->Ar gument s { &lArgCount ) ; 

ReportEvent (hEventSource, pmsgLog->Sever i ty ( ) , 0, pmsgLog->Event ( ) , NULL , * 
lArgCount , 

0, (const TCHAR **) pszArgs, NULL); 
DeregisterEventSource (hEventSource) ; 

} 

} 

void CLogNTEvents :: EnableTranslat ion (bool fEnable) 

{ 

if (fEnable) 
{ 

if ( !m_hMsgSrc) 

m__hMsgSrc = LoadMessageSource { ) ; 

} 

else 
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{ 

if (m_hMsgSrc) 
{ 

FreeLibrary (m_hMsgSrc) ; 
m_hMsgSrc = NULL ; 

} 

} 

retur n ; 

} 

HINSTANCE CLogNTEvents : : LoadMe s sageSour ce ( ) 
{ 

CRegistry regLocal; 

// gee the name of the resource 

if { ! regLocal . Connect (CRegistry: : keyLocalMa chine) ) 
reiurn NULL; 

string strKey ( "SYSTEMX \CurrentControlSet \ \ Services \ \E vent Log \ \Applica t ion\ \ " ) ; 
strKey += m_s t rResour ceName; 
if ( ! regLocal .Open ( strKey . c_str ( ) ) ) 
return NULL; 

string s tr DLL ; 

if { ! regLocal .Get Value ( "EventMes sage File " , s t r DLL ) ) 
return NULL; 

// load the library 

return LoadLibrary ( s tr DLL . c__str ( ) ) ; 

} 



/////////////////////////////////////////////////// 

CLogFile : :CLogFile ( ) 
: CLogBase { ) 



CLogFile: : CLog Fi 1 e ( LPCSTR ps zResour ceName ) 
.-CLogBase (ps zResour ceName ) 

m_streamIO. open (pszResourceName, ios__base : : out I ios_base : : trunc) ; 



oid CLogFile :: Open (LPCSTR pszFileName) 
Close ( ) ; 

m_strResour ceName = pszFileName; 
Open ( ) ; 



oid CLogFile :: Open ( ) 

if ( !m_s treamlO . is_open ( ) ) 

m_streamIO. open (m_strResourceName . c_str ( ) , ios_base : : out I ios_base : : trunc) ; 



cid CLogFile :: Close ( ) 

if (m_streamIO. is_open ( ) ) 

m_streamIO. close () ; 
r e t u r n ; 



void CLogFile :: Post (CLogMsg + pmsgLog) 
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{ 

if ( lm_fEnabled) 

return ; 

Lock ( ) ; 

if (m_s treamlO. is_open ( ) ) 
{ 

string strTabs {m_nlndent, '\t'); 

rn_streamIO << strTabs << pmsgLog->Text ( ) << '\n*; 
m_streamIO. flush { ) ; 

} 

Unlock ( ) ; 

return; 

} 

//////////// ///// //////////////// //////////////////////////////////// 

CLogDebug: :CLogDebug() 

{ 

} 

void CLogDebug :: Post (CLogMsg * pmsgLog) 
{ 

if { !m_f Enabled) 

r e t u r n ; 
if (m_nlndent) 

{ 

string strTabs (m_nlndent , ' \t'); 
Ou t put Debugs t ring {strTabs . c_str ( ) ) ; 

} 

OutputDebugStr ing (pmsgLog->Text { ) ) ; 
Output Debugs t ring ("\n") ; 
return ; 

} 

///•//////////////////////////////////;//////////////;///////////;/// 

CLogMulti : :CLoqMulti ( ) 

< 

} 

void CLogMulti :: AddLog (CLogBase * plog) 
{ 

Lock { ) ; 

m_collLogs . push_back (plog ) ; 
Unlock { ) ; 

} 

void CLogMulti :: RemoveLog (CLogBase * plog) 
{ 

Lock ( ) ; 

if {plog != NULL) 

m_collLogs . remove (plog) ; 

e 1 s e 

m_collLogs .erase (m_collLogs . begin () , m_collLogs . end { ) ) ; 
UnlockO; 
retu r n ; 

} 

void CLogMulti :: Post {CLogMsg * pmsgLog) 

{ 

if ( !m_f Enabled) 

r e t u r n ; 

Lock ( ) ; 

list<CLogBase + >::iterator itLogs; 
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for (itLogs = m_collLogs . begin () ; itLogs != m_collLogs . end ( ) ; itLogs + + ) 

pmsgLog->Post ( * ( + itLogs ) ) ; 
Unlock ( ) ; 

return ; 

} 

void CLogMulti : : Open { ) 
{ 

Lock{) ; 

list<CLogBase + >::iterator itLogs; 

for {itLogs = m_col lLogs . begin () ; itLogs != m_collLogs . end ( ) ; itLogs++) 

(*itLogs) ->Open ( ) ; 
Unlock {) ; 

} 

void CLogMulti :: Close ( ) 
{ 

Lock ( } ; 

list<CLogBase + >::iterator itLogs; 

for (itLogs = m_collLogs . begin {) ; itLogs ! = m_col lLogs . end { ) ; itLogs++) 

(*itLogs) ~>Close ( ) ; 
Unlock ( ) ; 

} 



string CTimeStamp : : LocalTime ( ) 
{ 

SYSTEMTIME tm; 
GetLocalTime (&tm) ; 
char pBuf f [30] ; 

sprintf (pBuf f , M % 02d : % 02d : k 02d . %d " , tm.wHour, tm.wMinute, tm.wSecond, tm. 
wMilliseconds ) ; 
return s tr ing {pBuf f ) ; 

) 
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Sifndef _Logging_h 
^define __Logging_h 

class CLogMsg; 

/* ////////•• /-*/// ;/////// ////////////////////////////////// 
///////////// //////// ///////// ////////;////// /////////// 

log objecirs 

/////////////////////////////////////// ///////////////// 

Dependencies : 

# include < st ring > 
•if include <list> 
# include <£\?t ream;- 
#include *-strstream> 
using namespace std; 



/////////// ///////// ////// ///////// ////////////// /////// 

/////////////////Si////// /\'////// ///////////</;;/ ///////+/ 

class CLogBase 
{ 

protected : 

bocl m_f Enabled; 

string m_s trResour ceName ; 

CComAu toCr i t ical Sect ion m_syncCS; 

int m_nlndent ; 

public : 

CLogBase ( ) ; 

CLogBase (LPCSTR ps zResour ceName ) ; 

void Enabled (bool fEnabled) {m_f Enabled - f Enabled; } 

boo! Enabled {){ return m_f Enabled ; } 

void Lock { ) {m_syncCS . Lock ( ) ; } 

void Unlock ( ) {m_ syncCS . Unlock (); } 

virtual void Post (CLogMsg * pmsgLog) = 0; 

virtual void Resour ceName ( LPCSTR ps zResour ceName ) ; 

void GetResourceName (string & s trResour ceName ){ s t r ResourceName = m_s trResourceName ; } 

virtual vo id Ope n { ) ; 

v i r t ua 1 vo i d C 1 os e ( ) ; 

void Pushlndent ( ) { m_nlndent++ ; } 

void Poplndent ( ) { if (m_nlndent > 0) m_nlndent-- ; } 

} ; 

//////////////////////////////////////////////////////// 

class CLogNTEvents : public CLogBase 
{ 

friend class CLogMsgEvent ; 

protected : 

static HIN STANCE m_hMsgSrc; 

HINSTANCE LoadMe ssageSour ce ( ) ; 

public : 

CLogNTEvents ( ) ; 

CLogNTEvents (LPCSTR pszResour ceName ) ; 
virtual void Post (CLogMsg * pmsgLog); 
void EnableTr anslation (bool fEnable); 

} ; 

////////////////////;//////////////////;///;//////////;/ 



class CLogFile : public CLogBase 
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protected : 

fstream m_streamIO; 

p u b 1 i c : 

CLogFile ( ) ; 

CLogFile (LPCSTR pszResourceName) ; 
void Open(LPCSTR ps z FileMame ) ; 
virtual void Post (CLogMsg * pmsgLog); 
v i r t u a i void Ope n ( ) ; 
virtual void Close (); 

} ; 

//////////////////////////////////////////////////////// 

class CLogDebug : public CLogBase 
{ 

publ ic : 

CLogDebug ( ) ; 

virtual void Post (CLogMsg * pmsgLog); 

) ; 

//////////////////////////////// / /////////////////////// 

class CLogMulti : public CLogBase 
{ 

protected : 

list<CLogBase + > m_collLogs; 

p u b 1 i c : 

CLogMulti ( ) ; 

void AddLog (CLogBase * plog) ; 
void RemoveLog (CLogBase 4 plog); 
virtual void Post (CLogMsg * pmsgLog); 
virtual void Open(); 
virtual void Close (); 

} ; 

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
/////// /////////////////////////// / ///////////////////// 
// messaoe objects 

/////////////// ///////////////// //////////////////////// 
//////////////// ////// /////// /////////////////////////// 

class CLogMsg : public s td : : st r s tream 
{ 

proce c t e d : 

TCHAR * m_pszTe>:t; 
v i. r t u a 1 void Re lease Buffers(); 

p u b J. i c : 

CLogMsg ( ) ; 

CLogMsg (LPCSTR pszMessage); 
CLogMsg ( string & strMessage) ; 
vi r t ua 1 -CLogMs g ( ) ; 

CLogMsg & Format (LPCSTR pszFormat, ...); 

virtual void Post (CLogBase & log); 
virtual long Event{); 
virtual long Severity {); 

virtual TCHAR ** Argument s { 1 ong * plArgCount); 

virtual TCHAR + Text ( ) ; 

virtual void Clear (); 

void appendError (_com_error & e); 

void appendError (HRESULT hr); 

void appendError (CLogMsg & em) ; 

void appendError ( std :: strstrearn & strmError); 

void setEr ror (_com_error & e); 
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void setError (HRESULT hr); 
void setError (LPCSTR pszError); 
void setError (CLogMsg & em) ; 
void getError ( string & strError); 
string getError {) ; 

void getError ( std :: st r stream & strmError); 
void clear () {Clear (); } 



///////////////////////////////// ////// /////////// 



S VRTY__DE FAULT 
SVRTY_SUCCESS 
SVRTY_ERROR 
SVRTY_WARNING 
SVRTY INFO 



- -1, 

- EVENTLOG_SUCCESS, 

- EVENT LOG_ERROR_TYPE , 

- EVENTLOG_WARNING_TYPE, 

= EVENTLOG__INFORMATION TYPE } 



class CLogMsgEvent : public CLogMsg 
{ 



protected: 
long 
long 
short 
TCHAR ** 



m_lEventID; 
m_lSever ity ; 
m_wArgCount ; 
m_ppszArgs ; 



void Init ( ) ; 

virtual void Re lea seBu f f er s ( ) 



public : 

static const; char 



bAr gSep; 



public : 

CLogMsgEvent ( ) ; 

CLogMsgEvent (LPCSTR pszMessage) ; 
CLogMsgEvent ( string & strMessage); 

CLogMsgEvent (long lEventID, long lSeverity = -1, LPCSTR pszMessage = NULL); 
CLogMsgEvent ( long lEventID, long lSeverity, string & strMessage); 
CLogMsgEvent ( long lEventID, long lSeverity, _com_error & e) ; 
CLogMsgEvent (long lEventID, long lSeverity, HRESULT hr); 
-CLogMsgEvent ( ) ; 

void SetEvent (long lEventID, long lSeverity = -1, LPCSTR pszMessage = NULL) , 
virtual long Event {) ; 
virtual long Severity (); 

virtual TCHAR + * Argument s ( long * plArgCount) ; 
virtual TCHAR * Text ( ) ; 



class CTimeStamp 



publi c : 

static string LocalTimeO 



ilendif 
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^include "stdafx.h" 
# include "Registry . h M 



/ v This code was taked fx om the "Windows Foundation Class" project, 
which is authored by Samuel R. Blackburn ( see the below original 
comments from Sam.) 

The source cede used MFC as a basis but since the AHC source 
code ci voids MFC, I have modified this code to use noting but 
standard C++. Also, I've have removed functionality that did 
not make sense in the AHC case to lessen the amount, of code 
presen t . 

Darin Greaham 
Miilbrook Corporation 
Auciust 1997 

*/ 
/* 

Author: Samuel R . Blackburn 

* * CI? : 7 6300, 326 

* * Internal:: sblackbu@erols.com 

You can use it any way you like as long as you don't try to sell it. 

'" * Any attempt to sell WFC In source code form must have the permission 
v * of the original author. You can produce commercial execu tables with 
*•* WFC but you can't sell WFC. 

Copyright, 1997, Samuel R . Blackburn 

* 4 SWorkfile: Registry. cpp $ 

$ Re vision: 1 $ 
* * SMcdtime : 1/14/00 1 :4 9p $ 



- : ■•• •■• * " : .- + - • ■* * *■■.>■- s •■■ * •■- *■»■*•*;*•■».■ + * »• .v A * -■- jr •;- * * -«• V 4. * 4, **** •': * * * + * •*■ * +■ + * •? » * •- * ■'- A * * •<- 



Funccion name 


: _zecursively_delete_all_sub_keys 


Descript i on 




Return type 


: static LOHG 


Argument 


: HKEY key_handle 


Argument 


: LPCT3TR fcey_name 



static LONG _r ecur sively_delete_all_sub_keys ( HKEY key_handle, LPCTSTR key_name ) 
{ ' ~ 

HKEY child_key_handle - NULL; 

LONG return_value - 0; 

LPTSTR temporar y_key_name = NULL; 

return_value ~ RegOpenKeyEx ( key_handle, key_name, NULL , KEY_ALL_ACCESS , & «r 

child_key__handle ) ; 
if ( return_value != ERROR_SUCCESS ) 
< 

return { return_value ); 

] 

temporar y_key_name = new TCHAR [ MAX_PATH ]; 

if ( temporar y_key_name ===== NULL ) 

{ 

return ( ERROR_NOT_ENOUGH_MEMORY ); 

} 

return_value - RegEnumKey( child_key_handle , 0, temporar y_key_name , MA X_ PATH ); 
while ( return_value *= ERROR_SUCCESS ) 
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{ 

_recursively__delete_all_sub_keys ( chi ld_key_handle , t empor ar y_key_name ); 
return_value = RegEnumKey{ child_key_handle , 0, temporar y_key_name , MAX_PATH ); 

} 

delete [] t empor ary_key_name ; 
tempora r y_key_name = NULL; 
RegCloseKey{ child_key__handle ); 

return_value = RegDeleteKey ( key_handle, key__name ); 
return ( return_value ); 



/ *•■ ***** * A 4. •> v i . * v •> **•;•» •;• * * * * » i ie •> *••>* ••■ **»•»• .* * •* 4.- •> * •* * •> v * *, * ■* * j * -> ■> v i •> v * * + *• * * -V •* * -> + 

Function name : CRegi.3 try : : CRegistry 
Description : 
Return type : 

* *• * ■*■ * *■ + •*• r >-- •.* 4- -> 4- v ■> *• * *• 4. •* •! -i J. ■* 4- •» •> *■ *. ■> v 4. v * i 4. .* 4. -v j. ■> 4, J 4. > + •*• * •*• •> * * 4- ■> * -J *, * f 4. * ■> .(. 4. * 4- ■> / 

CRegistry: :CRegistry() 
{ 

m_Initiali ze ( ) ; 



/ » ■*■ * V r ■•*■ * * + i ■* + ■» *: 7 * * V T * r ■* + ■* 4 : - W***»Vft» 4 ■*■ 4 4-4 4-4 *. * * * V 4- V 4 * r *>•*■* 4- * -V 4 4- 4, V T V 4- *- + ^- 4- *■ ± * 

Function name: CFecjistry :: -CRegistry 
Description : 
Return type : 

4 4 * 4 «■ 4. -*■ f * 4- * * 4 * * 4. .> 4- * «- 4. * 4- 4 ■>■ - 4.yV*4 r 4.4.. I 4- .4 r 4- •> * .4 4; * \ 4 » 4- ^ ». * *■**■>• *a+*4.4 4.+ *. + *■ 4 ... 4. 4, + / 

CRegistry : : -CRegistry ( ) 
{ 

if ( m_RegistryHandle != (HKEYJ NULL ) 
{ 

Close ( ) ; 

) 

m_Initiali ze ( ) ; 

) 

/ * * 4 ^ r * 4 -4 , ■ ■* 4 ; V 4 . ■ ■> -y > 4 4 V 4 4 4 « ■ ■* i. > 4. > V > * > * 4 i 4 * 4 * * •> 4^ ■> * -i ^ •> V * V * '* * \* * ^ * V 4 4, -> 4- ^ + * V * * ^ 4; ■* * 

Function name: CRegistry :: m_InitiaJ i 
Description : 
Return type : void 
Argument : void 

. .;. * 4. -v .J. ■> * 4. * *■ * ■;. > -:■ v V ■:• i 4 ... V 4. -t -;. - -:■ ^ .1. + -:- »• * * -i 4- * -i 4- * + * -:- 4.- ■!■ ^ 4- -V 4. ■> . v 4. . t + 4. + -> i- 4. 4- •> / 

void CRegistry :: m_Initiali ze ( void ) 
{ 

_ASSERTE( this ); 

** Make sure everything is zeroed our. 

m__Clas sName . erase () ; 
ra_ComputerName .erased ; 
rn_KeyName .erase () ; 
m_RegistryName .erased ; 



m_KeyHandle - (HKEY) NULL; 

m_ErrorCode ~ 0L; 

m_NumberOf Sub keys = 0; 

m_Longes tSubkeyNameLength = 0; 

m_LongestClassNameLength = 0; 

m_NumberOf Values = 0; 

m__Longes tVa lueNameLeng th = 0; 

m__LongestValueDataLength = 0; 

m_Securi tyDescriptor Length = 0; 

m LastWr i teTime . dwLowDa teTime = 0; 
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m_LastWr iteTime . dwHighDa teTime = 0; 
m__RegistryHandle - { HKEY ) NULL; 

} 

I V 4 *■ 4 V * •* * 4 A •» A 4 A > v 4 * 4 v * * 7 •* A •*. * * -V 4 V •> V 4 ****** •* * •» i ■> * 4 A- • V 4 A 4 A- 4 * • -* A * 4 •> * ■} X i A } v 4 * -.- -A 4 •* 4- V \ 

Function name: CRegistry :: Close 
Description : 
Return type : BOOL 
Argument : void 

... * ,s. A . .;. v + v •> * \c 4- ■> 4- -v ■* * ■■• * ■•■ y ••• * -i- -A •'• •> •*■ -lr 4; * 4- * *■ - * ••- * j- J- ■> •)■ A * 4- •;- 4- s- * -*■ * * •■• * •<- * - ■> 4- »■ 4 * i- * * ■»■ »■ -t- ■> * v / 

BOOL CRegistry :: Close ( void ) 
{ 

_ASSERTE ( this ) ; 

if ( m__KeyHandle »« (HKEY) NULL ) 
{ 

: : RegCloseKey ( m_KeyHandle ); 
m_KeyHandle = (HKEY) NULL; 

} 

if ( m_RegistryHandle == (HKEY) NULL ) 
{ 

return ( TRUE ) ; 

} 

m_ErrorCode = :: RegCloseKey ( m_Regis tryHandle ); 

if ( m_ErrorCode ERROR_SUCCESS ) 
{ 

m_RegistryHandle = (HKEY) NULL; 
m_Initialize ( ) ; 

return ( TRUE ) ; 

} 

else 
{ 

return ( FALSE ) ; 

} 



/ * * * * 4 • * * 4 * •* * 4 * 4 v * a- * * * * -A- 4 * * 4 * * A- 4 A- 4 -A* + .A- * -A f * * 4 4 -t A' 4 +4 v 4 * * ■*■ + ^ i- ■* * * r 4 a- v «: 4 v 4 A- 4 * 4 -a 4 + - 

Function name: CR*sgi stry :: Connect 

Description : 

Return type : BOOL 

Argument : HKEY key_to_open 

Argument : LPCTSTR name of computer 

v a- 4 ■* 4 * 4 •+ 4 ■>■ 4 4 4 4 A- 4 * 4 A 4 * 4 *• 4 * 4 4- * 4 4 4 * 4 A- 4 ****** > ******** + 4 •*■ 4 * 4 a- * * *•>•*■* A- 4 * 4 *■ 4 * * A- * * * * * / 

BOOL CRegistry :: Connect ( const _Keys key_to_open, LPCTSTR name_of _computer ) 
{ 

__ASSERTE( this ) ; 

were passed a pointer, do not trust it 



name_o£ ^computer can be NULL 



if ( key_to_open == keyClassesRoot I I key_to_open keyCurr entUser ) 
{ 

if ( name_of_computer NULL ) 
{ 

m_RegistryHandle = (HKEY ) key_to_open ; 

m_ErrorCode = ERROR_SUCCESS ; 

) 

e 1 s e 
{ 



//We 
try 
{ 
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* v NT won't allow you to connect to these hives v.ia ReaConnoci:Pej is try so we 
'II just skip that, step 

m_ErrorCode = ERROR_INVALI D_HANDLE ; 

} 

} 

else 
{ 

// Thanks to Paul Ostrowski [postrowski@zantel.com] for finding UNICODE bug here 
// RsgConnec t Reg. Is try is not const correct: 

m_ErrorCode = :: RegConnect Regis try ( { LPTSTR) name_of _compu ter , (HKEY } key_to_open , 
&m_RegistryHandle ) ; 



if ( m_ErrorCode ERROR_SUCCESS ) 
{ 

if ( name_of_computer == NULL ) 
{ 

TCHAR computer_name [ MAX_PATH }; 
DWORD size = MAX_PATH; 

if ( : : GetComputerName ( compu ter_name, &size ) ~- FALSE ) 
{ 

m^ComputerName . erase ( ) ; 

} 

else 
< 

m_Compu terName - comput er_name ; 

} 

} 

else 
{ 

m__Compu terName = name_of ^computer ; 



/ / 

// It would be nice to use a switch statement here but I get a "not integral" \£ 
error ! 

/ / 

if { (HKEY) key_to_open == HKEY_LOCAL_MACHINE ) 
{ 

m_RegistryName = TEXT { "HKEY_LOCAL_MACHINE" ); 

} 

else if ( (HKEY) key_to_open == HKEY_CLASSES_ROOT ) 
{ 

m_RegistryName = TEXT ( " HKEY_C LAS SES_ ROOT " ); 

} 

else if ( (HKEY) key_to_open HKEY_USERS ) 
{ 

m_RegistryName = TEXT ( "HKEY_USERS " ); 

} 

else if ( (HKEY) key__to_open === HKEY_CURRENT_USER ) 
{ 

m_RegistryName = TEXT ( " HKEY__CURRENT_USER" ); 

) 

else if ( (HKEY) key_to_open « HKEY_PERFORMANCE_DATA ) 
{ 

m_RegistryName - TEXT { "HKEY_PERFORMANCE_DATA" ); 

> 

ffif ( WINVER >= 0x400 ) 

else if { (HKEY) key_to_open HKEY_CURRENT_CONFIG ) 
( 

m_RegistryName = TEXT ( "HKEY_CURRENT_CONFIG " ); 

) 

else if ( (HKEY) key_to_open H K E Y_ D Y N DA T A ) 
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■ { 

m_RegistrvName = TEXT ( "HKEY_DYN_DATA" ); 

} 

#endi f 

else 
{ 

m_RegistryName = TEXT ( "Unknown" ); 

} 

return { TRUE ) ; 

} 

else 
{ 

return { FALSE ) ; 

} 

} 

catch (...) 
{ 

m^ErrorCode - ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

} 

) 

/*■¥**■»■-*■*■*■+* - ■* At + V * * 7 v r *• t -4, + •* ■ ± J. + * V * A- * v * V * + + V * V » *■ * * * V i * + * i * + ^ V * * V + V -5r * * > 

Function name: CRegistry: : Create 

Description : 

Return type : BOOL 

Argument : LPCTSTP n a m e_o f _ s u b k e y 

Argument : LPCTSTR naiae of class 

Argument : C x e a t e Op t :i. o n s options 

Argument : Crea te Permissions permissions 

Argument : L ? SEC 0 F I T V_ AT T R I BOTES secur it y_a ttr i bu tes_p 

Argument : CreationDispcsition * disposition p 

BOOL CRegistry :: Create ( LPCTSTR name_of_subkey , 

LFCTSTR name_of_class , 

CreateOptions options, 

Create Permissions permissions, 

LPSECURITY__ATTRIBUTES s ecur i t y_a 1 1 r ibu t es_p , 

CreationDisposition * disposition__p ) 



{ 



_ASSERTE ( this } ; 

_ASSERTE( name_of_subkey != NULL ); 

if ( name_of_subkey =- NULL ) 
{ 

mJrrorCode - E RROR__ I N VA L I D_ PARAMETER; 
return ( FALSE } ; 

} 

// Ke were passed a pointer, do not trust it 

try 

{ 

DWORD disposition = 0; 

if ( name_of_class == NULL ) 
{ ~ 

name_of_class = TEXT ( ); // Paul Ostrowski f pes t rows ki^xantei . com] 

) 



if { m_KeyHandle != (HKEY) NULL ) 
{ 

: : RegCloseKey ( m_KeyHandle ); 
m_KeyHandle = (HKEY) NULL; 

} 

m_ErrorCode = : : RegCr eateKeyEx ( m_Regis t ryHandle , 
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name_of __subkey , 
(DWORD) 0, 

(LPTSTR) name__of_class, // Paul Ostrcwski 

[ po s t r ows k i @ z a n t e 1 . c om ] 

options , 

permissions, 

secur i ty_a ttr ibutes_p, 

&m__KeyHandle, 

{.disposition ) ; 

if { rn_ErrorCode == ERROR_SUCCESS ) 
{ 

if ( disposition^ != NULL ) 
{ 

*disposition_p = (CreationDisposition ) disposition; 

} 

m_KeyName - name_of __subkey ; 
return { TRUE ) ; 

} 

else 
{ 

return { FALSE ) ; 

} 

} 

catch (...) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return (FALSE ) ; 

} 

} 

Function name: C Registry: : De 1 e t eKe y 
Descx ipt ion : 
Return type : EOOL 

Argument : LPCTSTR name_ of_l:ey_to_ delete 

BOOL CRegistry: :DeleteKey ( LPCTSTR name_of __key_t o_dele te } 
< 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_key_to_delete !== NULL }; 

if ( name_of_key_to_delete =~ NULL ) 
{ 

m_ErrorCode = ERROR_INVAL I D__ PARAMETER; 
return ( FALSE ) ; 

} 

// We were passed a pointer, do not trust it 

try 

{ 

/ * 

Yen can't delete a key given a full path. What you have to do is back up one 
level and then do a delete 



string f ul l_key__name = name_of _key_to_delete ; 

if ( full_key_name. find ( TEXT ( ' \V ) ) == (-1) ) 
{ 

/* 

** User had not given us a full path so assume the name of the key he passed us 

* 4 is a key off of the current key 

* / 
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m_ErrorCode = : :_recursively_delete_all_sub_keys ( m_KeyHandle, ✓ 
name_of_key_to_delete ) ; 
} 

else 
{ 

int las t_back_slash_loca t ion = f ull__key__name . size ( ) - 1; 

/ * 

*■* We know this loop will succeed because a back slash was found in the above if 
statement 

*/ 

while { f ull_key_name [ last_back_slash_loca tion ] != TEXT { * W ) ) 
{ 

last_back_slash_location-~ ; 

} 

string currently_opened_key_name = m_KeyName; 

string parent_key_name - f ull_key_name . substr ( 0, last_back__slash_location ); 
int nCount = ( f ull__key_name . si ze { ) - last_back__slash_loca t ion ) - lu- 
string child_key_name = f ull_key_name . subs t r { f ull_key_name . si ze ( ) - nCount, * 
n Count ) ; 

/* 

* Wow we open the parent key and delete the child 
*/ 

if { Open ( parent_key_name . c__st r ( ) ) != FALSE ) 
{ 

m_ErrorCode = : :^r ecur si vely_dele t e_all_sub_keys ( m_KeyHandle, child_key_name . * 
c_str() ); 
} 

else 
{ 

m_KeyName = curr entl y_opened_key_name ; 
re turn { FALSE ) ; 

} 



if { m_ErrorCode ERROR_SUCCESS ) 

return ( TRUE ) ; 
else 

return ( FALSE ) ; 

} 

catch ( ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

) 



• » •* -A- * ■!■ * •> + k * -v ■*****■*•»■ * + > •* -A - l - * -i- k ■*■ y 4- * y * - : - -=■ >. •'• .* + ■> •»■ y ■*: 4 * ■*■■**-**■* ■'■ > i ■> v » ■? ,. * ?■ -.- -i_ ... * * .1. •> +, 

Function name: CRegis try : : DeleteValue 
Description : 

Return type : BOOL 

Argument : LPCTSTR name_of_value_to_delete 

+- 4 <r 4 *■ * •+■ 4- *** * "* 4 4 +-4 -V 4 * 4 4 ■*■ 4 •*• 4 * *i * *■ -» *• 4 * 4 +■ 4 ■+ > i- r + •» ~ > r - r 4 +> 4 ♦ > *■ 4 ■*■ 4> •+ 4 4 4- -* r 4 4 - +• 4 * 4 «- » t f 4 ••• 4 / 

BOOL CRegistry :: DeleteValue { LPCTSTR name_of _va lue_t o_dele t e ) 
{ 

_ASSERTE{ this ); 
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<r name_cf value co delete can be NULL 
? / 

// We were passed a pointer, do not trust it 
try 
{ 

m_ErrorCode - : : RegDeleteValue ( m_KeyHandle, { LPTSTR) name_of __va lue_to_delet e ) 
f ( m_ErrorCode = = ERROR_SUCCESS ) 
retur n ( TRUE ) ; 
e 1 s e 

return ( FALSE ) ; 

} 

catch ( ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

} 

} 

/ + T * * * * ■* ■'■ *• •'• > - + - t * * - ■:• ■«• * r - •.* -'• ••• * -t + 4- * ,. * y -x * * * -r 4- + ,. 4 •;- x * * + * •>• + 4. * 4. .» »- * 4- * ~ * 4- * * * + * 



Function name 
Dei- or ipt ion 
Return type 
J\x oument 
A j g anient 
Argument 



CRtgistiy: : Enumera teKeys 



POOL 

const DWORD subkey index 
strings subkey_name 
ft. ring & class_ name 

BOOL CRegistry : : Enumer a teKeys { const DWORD subkey_index , strings subkey_name, strings 
class_name ) 

{ 

_ASSERTE ( this ) ; 

TCHAR subkey_name_string [ 2048 ]; 
TCHAR class_name_string [ 2048 ]; 

DWORD size_of _subkey_name_s tring = ( s i zeof ( subkey__name__s t ring ) /si zecf ( + 

( subkey_name_str ing) ) ) - 1; 
DWORD size_of_class_narne_s tring = ( s i zeof ( class_name_string ) /si zecf ( * 

(class_name_string) ) ) - 1; 

: : ZeroMemor y ( subkey_name_string, sizeof ( subkey_name_s tring ) ); 
: : ZeroMemor y ( class_name_str ing, sizeof ( class_name_s tring ) ); 

m_ErrorCode = : : RegEnumKeyEx { m_KeyHandle, 

subkey_index , 
subkey_name_s tring , 
&si ze_of _subkey_name_s tring, 
NULL, 

class_name_string , 

& si ze_of _class_name_str ing, 

&m_LastWr i teTime ) ; 

if ( mJrrorCode == ERROR_SUCCESS ) 
{ 

subkey_name ~ subkey_name_s tring ; 
class_name = class_name_s tring ; 
return { TRUE ) ; 

} 

else 
{ 

return ( FALSE ) ; 

} 
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• *. .y , i * •* * -i. * •> 4- > v .> v ~ , > -v * .* * •* a. + x v .> 4. •> v V *- ■> * ■ * ■«■ * v *»*■*- * * *■ * + ■> -v •> *■ v ■> «■ V * ■* tr ■.* * ■.* 

Function name: CR^cjis v. r y : : Enumer a teValues 
Description : 



Re ruin type 
Argument 
Arc? lime nfc 
Ar g u men t 
Argument 
Argument. 



BOOL 

const DWORD value_inde:: 
sr. ring ft name_of _value 

KeyValueTypesfi type_eode 
LP BYTE data_buf £ er 

DWORDS size_o£_da ta _buf f er 

* ? - » '.*■ • t *■ •'' + ■'■ * •> ?■ f * ■•■ ■* ■■■ .*• * •*■ - : ' *• * "> •*■ -4" * •> •»■ r * -.1- v ■" '.* •■■ i >■ -i- •» ■ - - •> h - •> + - -;- -i •> A ■:- * - * > -i- * 4- * •> J, -y + -y ■* •:■ ~ •» * a. y 

BOOL CRegistry : : Enurnera teValues ( const DWORD va lue__index, 

strings name_of_value , 

KeyValueTypesS type_code, 

LPBYTE data_buf fer, 

DWORDs size_of_data_buf f er ) 

{ 

_ASSERTE< this ) ; 

: 

v ^ data buffer and si-e_of data_buffer can be HULL 



DWORD temp_t ype^code = type_code; 
TCHAR temp_name[ 204 8 ]; 

: : ZeroMemor y ( temp_name , sizeof( temp_name ) ); 

DWORD temp_name_size = ( si zeof ( temp_name ) /s i zeof { * ( temp_name ) ) ) ; 

// l?e were passed a pointer, do not trust it 

try 

{ 

m_ErrorCode = : : RegEnumValue ( m_KeyHandle, 

va lue_ index , 

ternp_name , 
h temp_name_s i ze , 

NULL, 
&temp_type_code , 

da ta_buf f er , 
&size_of_data_buf f er ) ; 

if ( m_ErrorCode == ERROR_SUCCESS ) 
{ 

type_code = {KeyValueTypes ) temp_t ype_code ; 

name_of _value = temp_name; 

return ( TRUE ) ; 

} 

else 
{ 

return { FALSE ) ; 

} 

) 

catch (...) 
{ 

m_ErrorCode - ERROR_EXCEPTION_IN__SERVICE ;. 
return ( FALSE ) ; 

} 

} 
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Function name: CRegistry :: Flush 
Description : 

Return type : BOOL 

Aroument : void 
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BOOL CRegistry: : Flush ( void ) 
{ 

_ASSERTE ( this ) ; 

m_Er rorCode = : : RegFlushKey { m_KeyHandle ); 

if ( m_ErrorCode == ERROR_SUCCESS ) 
{ 

return ( TRUE ) / 

} 

else 
{ 

return ( FALSE ) ; 

} 
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Function name; CRegistry :: GetBinaryValue 
Description : 

Return type : BOOL 

Argument : LPCTSTR name_of_ value 

Argument : BYTE returner ray { ] 

Argument: : DWORDs num_bytes_read 

"V ^ * * * ■•*- ' : - •*•»•* k *• ■* ■*• + r: *: -'- * J - * ■»: •;■ ■*• -V * -r -V ■«• •*- -» ; v ^ -i- 4- .i- -i- *• * * * •••• » 4- - r 4. + * 4- * . * y ■;. * -;■ + -i. j 

BOOL CRegistry : : GetBinar yValue { LPCTSTR name_of _va lue , BYTE r eturn_ar ray [ } , DWORDS 
num_bytes_r ead ) 

{ 

_ ASSERTE ( this ) ; 

_AS SERTE ( name_of_value != NULL ); 

if ( name_of _value — NULL ) 
{ 

m_ErrorCode = ERROR_IN VALI D_PARAMETER; 
return ( FALSE ) ; 

} 

// Thanks go to Chris Mines (ChrisHines@msn.com) for finding 
// a bug here. If you add entries to the key, then the 
// Information retrieved via QuerylnfoO may be invalid. This 
// will screw you here. So, we must make sure our information 
/ / is correct before we attempt to *use* the data. 

Querylnf o ( ) ; 

DWORD size_of _buf f er - m_Longes tValueDa taLength ; 

LPBYTE memory_buf f er = (LPBYTE) new BYTE [ size_of_buf f er ]; 

if ( memor y_buf f er == NULL ) 
{ 

m_ErrorCode = : : Ge tLastError ( ) ; 
return ( FALSE ) ; 

} 

BOOL return_value = TRUE; 
KeyValueTypes type - typeBinary; 

if ( QueryValue{ name_of _value , tvpe, memory_buf f er , si ze_of _buf f er ) != FALSE ) 
{ 

DWORD index = 0; 

while { index < si ze_of __buf f er ) 
\ 

return_ar ray [index] = memory_buf fer [ index ] ; 
index ++ ; 

) 

num bytes read = size of buffer; 
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return__value = TRUE; 

} 

else 
{ 

return_value = FALSE; 

} 

delete [] memor y_buf f er ; 
return ( return_value ); 

} 

Function name: CRegi s try : : Ge tClassName 

Description : 

Return type : void 

Argument : strings class name 

void CRegistry : : GetClassName { strings class_name ) const 
{ 

class_name = m_ClassName; 

} 

/ * -.V * -.V * * * -* * * * * * * .i> -> * * *: •> * -k * * * * -V * + •> ->- i * + -V 4 -.v A •;• ■* s- ■* -•• *■»•*-'■+•».• v •> * * + i •'• * 

Function name: CRegi s try :: GetCompu terNante 
Description : 

Return type : void 

Argument : strings computer name 

void CRegistry :: GetComputerName ( strings compu ter_name ) const 
{ 

computer_name = m_ComputerName ; 



Function name: CRegistry :: Get DoubleWordValue 
Description : 

Return type : BOOL 

Argument •: LPCTSTR name_of_value 

Argument : DWORDs return^ value 

■M * * * * •*■ * -v * -«- * ■> ■»; V * -sr »• -V * * * > * * -> i <*; * -.*■•» -«r * * -Jk •'■ •* ■» * *»• -v «i. ■? •» •;• •* i - •* i •'■ •>>■*- * -i, * »• ••• 4 -;- * - > ,' 

BOOL CRegistry: : Get DoubleWordValue ( LPCTSTR name_of_value , DWORD& return_value ) 
t 

_ASSERTE{ this ) ; 

_ASSERTE{ name_of_value != NULL ); 

if ( name_of _value == NULL ) 
{ 

m_ErrorCode = ERROR_INVALI D_PARAMETER; 
return ( FALSE ) ; 

} 

DWORD size_of_buf f er = si^eof( DWORD ); 
KeyValueTypes type = typeDoubleWord; 

return { QueryValue( name_of _value , type, { LPBYTE ) £-r eturn_value , size_of_buf f er ) ); 
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Function name: CRegistry: : GetErrorCode 
Description : 

Return type : BOOL 

Argument : void 

BOOL CRegistr y :: GetErrorCode ( void ) const 
{ 

_ASSERTE( this ); 
return { m ErrorCode ); 
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Function name: CRegis t.r y : : GetKeyUame 

Description : 

Return type : void 

Argument : strings key _name 
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void CRegistry :: GetKeyName { strings key_name ) const 
{ 

key_name - m_KeyName; 

} 
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Function name: CRegistry : : GetNumberOf Subkeys 
Description : 

Return type : DwORD 

Argument : void 

4. v 4 + ... 4. -4 ^. 4 4. 4: + ■; 4- i 4 v * V * v* 4- -V -*"»-* * + + 4.- ■> V * A" •» ■*■ + A- + * * * 4- * * '» V •> V * * * + * * -V * ■> * ■> 4,- •» v > -V * *" + *' ■* * * / 

DWORD CRegistry : :GetNumberOf Subkeys { void ) const 
{ 

return( m_NumberOf Subkeys ); 
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Function name: CRegistry :; GetNuirtberOfVaiu.es 
Description : 

Return type : DWORD 

Argument : void 

DWORD CRegistry :: GetNumberOf Values ( void ) const 
{ 

return ( m_NumberOf Va lues ); 

} 

Function name: CReqis try : : GetRegis tryName 
Description : 
Return type : void 

Argument : strings registry_name 
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void CRegistry :: GetRegistryName ( strings regis try_name ) const 
I 

registry_name = m_RegistryName ; 

} 
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Function name : CRegistry :: Get StringVaiue 
Description : 

Return type : BOOL 

Argument : LPCTSTR name of value 

Argument : strings returns cring 

.>.*.+ ■;■ V 4- •» 4- i 4- + 4 *. > - 4 v -i- * >■ * •*• 4- *• 4- •> A- > <■ * V * 4- A- i- .V ■«■ * 4- >■*-■> 4- > *• 4 V * -V * * + *■ 4- 4- ■> 4 4 4" 4 4- •> V 4 *■ * 4- ■< 4- •>• / 

BOOL CRegistry :: GetStringValue ( LPCTSTR name__of _value , strings re turn_s tr ing ) 
{ 

_ASSERTE ( this } ; 

_ASSERTE( name_of__value != NULL ); 

if ( name_of _value == NULL ) 
{ 

m_ErrorCode = ERROR_INVALID_PARAMETER; 
return { FALSE ) ; 

} 

TCHAR temp_string[ 2048 ]; 
DWORD size_of_buf f er - 2048; 

: : ZeroMemor y ( temp_string, sizecf ( tempest ring ) ); 
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KeyValueTypes type = typeString; 

if ( QueryValue ( name_of_value , type, (LPBYTE) temp_string, si ze_of _buf f er ) \- FALSE 

{ 

return_string = ternp_str ing ; 
return { TRUE ) ; 

) 

else 
{ 

return_st ring . erase ( ) ; 
return ( FALSE ) ; 

} 
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Function name: CRegi st r y : : Ge tValue 
Description : 

Return type : BOOL 

Argument : LPCTSTR name_of _va iue 

Argument : DWORDS re cur revalue 

BOOL CRegistry : :GetValue { LPCTSTR name_of _value , DWORDS return_value ) 
{ 

__ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL J; 

if { name_of_value == NULL ) 
{ 

m_ErrorCode = ERROR_INVALI D_PARAMETER; 
return ( FALSE } ; 

} 

return ( GetDoubleWordValue ( name_of _value , return_value ) ); 

} 
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Function name: CRegistry :: GeirVa lue 
Description : 

Return type : BOOT, 

Argument : LPCTSTR name_of_vaiue 

Argument : string* return string 

BOOL CRegistry: :GetValue ( LPCTSTR name_of_value, strings r eturnj tring ) 
{ 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name_of_value == NULL ) 
{ 

m_ErrorCode = ERROR_INVALI D_PARAMETER; 
return ( FALSE ) ; 

} 

return( GetStringValue ( name_of_value, return_str ing ) ); 

} 
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Function name: CRegi s try Open 
Description : 

Return type : BOOL 

Argument : LPCTSTR name_of __subkey_to_cpen 

Argument : const Create Per miss ions security access mask 

BOOL CRegistry : :Open ( LPCTSTR name_of _subkey_to_open , const Crea tePermissions 
secur ity_access_mask ) 

{ 



C:\Documents and Settings\billyhe\My . . . \LCServices\LCKioskCIient \Regist ry . cpp 



ASSERTE ( this ) ; 



** name of subkey to open can be NULL 
V 

// were passed a pointer, do not trust it 

try 

{ 

if { m_KeyHandle != (HKEY) NULL ) 
{ 

: : RegCloseKey { m_KeyHandle ); 
m_KeyHandle = (HKEY ) NULL; 

} 

m_ErrorCode = : : RegOpenKeyEx ( m_Regis tryHandle , name_of__subkey_to_open, NULL, 
security_access_mask, &m_KeyHandle ) ; 

if ( m_ErrorCode == ERROR_SUCCESS ) 
{ 

Querylnf o { ) ; 

m__KeyName = name_of _subkey_to_open ; 
return ( TRUE ) ; 

} 

else 
{ 

return ( FALSE ) ; 

} 

} 

catch ( ... ) 
{ 

mJrrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

} 

} 

Function name: CReais try :: Query Info 
Description : 
Return type : &00L 
Argument. : void 

BOOL CRegistry: : Querylnf o ( void ) 
{ 

_ASSERTE ( this ) ; 

TCHAR class_name[ 2048 ]; 

: : ZeroMemory ( class_name, sizeof{ class_name ) ); 

DWORD size_of _class_name ~ ( si zeof ( class_name ) /sizeof ( + ( class_name) ) ) - 1; 

m_ErrorCode = : : RegQuerylnf oKey ( m_KeyHandle , 

class_name , 
& size_of_class_name , 
(LPDWORD) NULL, 
&m_NumberOf Subkeys , 
&m_Longes tSubkey Name Length , 
&m_LongestClassNameLength, 
& m_Number Of Values , 
&m_Longes tVa lueName Length , 
&m_LongestValueDa t a Length, 
&m_Secur it yDe script or Length, 
&m_LastWr iteTime ) ; 

if { m_ErrorCode ERROR_SUCCESS ) 
i 

m_ClassName = class__name; 
return ( TRUE ) ; 
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{ 

return ( FALSE ) ; 
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} 
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Function name 
Descr ipt i on 
Return type 
At gument 
Argument 
Arguraent 
Argumen t 



■ r 4. .;. a * 4. .4. -,. * „. .j, -V -.■ * »■ * ft ■■■ -'- V ft *:»■■* ft- + ft -*■ * * ft 4- •> .J- ft- -jr -« * *" ft * •> 

CRegistry: : Query Value 



BOOL 

'LPCTSTR name _ of value 

KeyValueTypesS va lue_type 

LPExTE address of__buffer 

DWORDS size_of_buf f er 

V ■■' v -i A" * v ' : '.* * ■* ft ■ ".* ft •>■»•* v ft V ■> v ft \ ■■- *■ 4: ft * -A ft ft -v ft V ft ft ;* ft V -i - ft ft -» * * * ft ft ft v ft .-V ft *• * A- ft ft -.4 * * ft * * ft V * -ft ft A ft W ft > ft / 

BOOL CRegistry : : QueryValue ( LPCTSTR name_of _value, 

KeyValueTypess value_type, 

LPBYTE address_of_buf f er, 

DWORD& size_of_buf f er ) 

{ 

_AS SERTE ( this ) ; 
ASSERTE ( name of value != NULL ); 



^ 4 address of buffer and si~e of buffer can be NULL 



if { name_of __va lue ~~ NULL ) 
{ 

m_ErrorCode - ERROR__INVALI D_ PARAMETER; 
return ( FALSE ) ; 

} 

// We were passed a pointer, do not trust it 

try 
{ 

DWORD temp_data_type = { DWORD) value_type; 

m_ErrorCode = : : RegQuer yVa lueEx ( m_KeyHandle, 

(LPTSTR) name_of_value, 
NULL, 
&temp_data_type, 

address_of _buf f er , 
&si ze__of_buf f er ) ; 

if ( m_ErrorCode =- ERROR_SUCCESS ) 
{ 

value__type = ( KeyValueTypes ) t emp_da ta_type ; 
return ( TRUE ) ; 

) 

else 
{ 

return ( FALSE ) ; 

) 

} 

catch ( ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

} 

} 
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Function name: CRegistry: : SecBinai yValue 
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Description 
Return type 
Argument 
Argument 
Argument 



BOOL 

LPCTSTR n«ame_of_value 
const BYTE; bytes_tc_write[ } 
DWORD num_bytes to write 
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BOOL CRegistry : : SetBinaryValue ( LPCTSTR name_of_value , const BYTE bytes__to_wr i te [ ] , DWORD 
num_by tes_to_wri te ) 

{ 

_ASSERTE( this ) ; 

_ASSERTE{ name_of_value != NULL ); 

if ( name_of_value == NULL ) 
{ 

m_ErrorCode = ERROR_I IS! VAL I D_ PARAMETER; 
return ( FALSE ) ; 

} 

BOOL return_value = SetValue ( name_of_value, typeBinary, ( LPBYTE) bytes_to_wr i te, ✓ 

num_bytes_to_wr ite ) ; 
return ( return_value ); 

} 

/ * 4- 4 «r + •* * + 4 4 4 -V 4 v 4 V 4 v * + «»- + ■* + 4 \ 4 * 4 * 4 * 4 4 4 y 4 •* -4 4 • * 4 * 4 4 * 4 V 4 v 4 * 4 4 r * 4 4 \- 4 +4 v 4 ■* 4 v 4 + 4 + ■* 



Function name 
Description 
Return type 
Argument 
A.r flume nt 



CRegistry : : SetDoubleWor dValue 



BOOL 

LPCTSTR name_of_value 
DWORD value to _ write 

4*4*4 * * V 4 •> * -f. 4 i k t * 4 V 4 *■ 4 A- 4 -j. *** t * V ******* 4 4 4*444 * r 4- * -V * * * 4 4 * 4 +4 * 4 4 * * 4 * 4 4 * 4 / 

BOOL CRegistry :: SetDoubleWordValue ( LPCTSTR name_of _va lue , DWORD value_to_wr i te ) 
{ 

_ASSERTE { this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name__of_value == NULL ) 
{ 

rn_ErrorCode = E RROR_ I N VAL I D_ PARAMETER; 
return ( FALSE ) ; 

} 

return! SetValue ( name_of _value , typeDoubleWord , (const PBYTE) &value_to_write, si.:ecf 
DWORD ) ) ) ; 
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Function name: CRegistry :: SetSt ringVa lue 
Description ; 

Return type : BOOL 

Argument : LPCTSTR n«rne_or _va lue 

Argument : const strings string value 

4 -;• 4 •*• * * r ■*■ * *.' 4 * * 4 ■* ■# 4 4 * -?• * **- * 4- V * -V 4- * 4 * * -V * -* * 4 Jt 4" * * -*■ * * * 4: 4- * 4" * 4- *4*4- + 4*4 .;. * .;. j. .;. * ... * ^ 

BOOL CRegistry :: Se tSt r ingValue ( LPCTSTR name__of_value, const strings string_value ) 

{ 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name_of_value -~ NULL ) 
{ 

m_ErrorCode = ERROR_INVALI D_PARAMETER; 
return ( FALSE ) ; 

} 

return ( SetValue { name_of_value, typeString, (const PBYTE) string_value . c_s tr ( ) , * 
string_value . size { ) + 1 ) ); 

} 
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Function name: CRegistry :: SetValue 
Description ; 

Return type : BOOL 

Argument : LPCTSTR name_of _value 

Argument: : DWORD value 

* ■;- * * »■ * v -■- •* i- * -r + r -;• * -i- *■ ■> •«• V •'• > * -A- - -4- a- •> * -;- * * * -»- > ->• * 4- -> + -y + •>*•■«.+ ■«■ * * •'• -V + ■> r * * •*■ r + •-- v * - * / 

BOOL CRegistry: :SetValue < LPCTSTR name_of_value, DWORD value ) 
{ 

_ASSERTE ( this ) ; 

__ASSERTE( name_of_value != NULL ); 

if ( name__of_value == NULL ) 
{ 

m_ErrorCode - ERROR__INVALI D_PARAMETER; 
return ( FALSE ) ; 



return { Se tDoubleWordValue ( name of value, value ) ); 



} 



BOOL 

LPCTSTR name_of_value 
const, strings string to write 
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Function name: CRegistry :: SetValue 
Descript ion 
Return type 
Argument 
Argument 
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BOOL CRegistry :: SetValue ( LPCTSTR name_of _value , const strings string_t o_writ e ) 
{ 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name_of_value == NULL ) 
{ 

m_ErrorCode = ERROR^INVALI D_ PARAMETER; 
return ( FALSE } ; 



return { Se tSt r ingValue ( name_of_value, string_to_wr ite ) ); 



Function name 
Description 
Return type 
Argument 
Argument 
Argument 
Argumen t 



CRegistry : : SetValue 



BOOL 

LPCTSTR name o f _ v a 3. u e 

const KeyValueTypes t ype_of _value_to_set 

const PBYTE address_of_value_ data 

const DWORD s i ze_of _da la 

■r -V * * A T * r t •* * •» <• -y <■ ■>■ V *.■ -J- .4 v A '* •*> ■> 4- •> V •> *• * V -i- *■ •> .V -i- 4- •> •*••> 4/ ■> •«.. •> i- + A . V -i : 4- i- 4. •> 4- •> ... 

BOOL CRegi s try :: SetValue ( LPCTSTR name__of _value , 

const KeyValueTypes t ype_of _value_to_set , 

const PBYTE addr ess_of _value_da ta , 

const DWORD size of data ) 



{ 



__ASSERTE ( this ) ; 

_ASSERTE{ name_of_value != NULL ); 

_ASSERTE( address__of_value_data != NULL ); 

if { name_of_value ==- NULL I I address_of_value_da ta == NULL ) 
{ 

mJrrorCode = ERROR_INVALI D_ PARAMETER ; 
return ( FALSE ) ; 

) 
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// We were passed a pointer, do not trust it 

try 
{ 

m_ErrorCode = : : RegSe tValueEx { m_KeyHandle, 

name__of_value , 
0, 

type_of_value_to_set , 
address_of_value_data , 
size_of_data ) ; 

if ( m_ErrorCode ERROR__SUCCESS ) 
{ 

return ( TRUE ) ; 

} 

else 
{ 

return ( FALSE ) ; 

) 

} 

catch ( ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return { FALSE ) ; 

} 

J 
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^include "stdafx . h" 

#: include M regist ryBase . h" 

//////////////// //////////// ////// ///////////////////;//////////////;/////////;;//////; 

// CRegistryBase 

CRegistryBase: : CRegist ryBase { ) 

( 

} 

bool CRegistryBase :: connect (CRegistry : :_Keys eKev, LPCSTR pszComputer) 
I 

if (m_oRegistry. Connect (eKey) ~ REG_FAILURE ) 
{ 

string strRegName; 

m_oRegistry . GetRegistryName (StrRegName) ; 

m_strLastError - "Unable to connect to [ " ; 
m__strLas tEr r or + = strRegName; 
m_strLastError += "]"; 
if (pszComputer != NULL) 
{ 

m_strLastError += " on computer ["; 
m_s trLastError += pszComputer; 
m_strLastError += " ] " ; 

} 

return false; 

} 

return true; 

} 

bool CRegistryBase :: getValue (LPCSTR pszValueName, string & strValue) 
{ 

.if (m_oRegistry . GetValue (pszValueName, strValue) -= REG_FAILURE) 

{ 

m_strLastError = "Unable to retrieve value ["; 
m_strLastEr ror += pszValueName; 
m_strLastEr ror += "]"; 
r eturn false ; 

} 

return true; 

) 

bool CRegistryBase: : ge tVa lue (LPCSTR pszValueName, unsigned long & lvalue) 
I 

if (m_oRegistry . GetValue (pszValueName, lvalue) == REG_FAILURE) 
{ 

m_strLastError = "Unable to retrieve value ["; 
m_strLastEr ror += pszValueName; 
m_strLas tError += "]"; 

return false; 

} 

r e t u r n t rue; 

) 

bool CRegistryBase: : getBinaryValue (LPCSTR pszValueName, LPBYTE pBuff, DWORD * pdwBuffSize) 
{ 

CRegistry : : KeyValueTypes eValueTypes = CRegi st r y : : typeBinar y ; 
if (m_oRegistry .QueryValue (pszValueName, eValueTypes, pBuff, 
*pdwBuf fSize) == REG_FAI LURE ) 

{ 

m_strLastEr ror = "Unable to retrieve value ["; 
m_strLastEr ror +~ pszValueName; 
m_strLastError += "]"; 
return false; 

) 

return true; 
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} 

int. CRegistryBase : : enumKeys { vector <strincj> & arvKeys) 
{ 

DWORD dwldx - 0; 
string strKeyName; 
string s trClassName ; 

while (m_oRegistry . Enumera teKey s (dwldx++ , strKeyName, strClassName) ) 

aryKeys . push_back (strKeyName ) ; 
return ar yKeys . si ze ( ) ; 

} 

bocl CRegistryBase :: setValue (LPCSTR pszValueName, LPCSTR pszValue) 
{ 

if (m_oRegistry . SetValue (pszValueName , CRegistr y : : typeSt ring , (PBYTE) pszValue, 
strlen (pszValue) + 1) «= REG_FAILURE) 

{ 

m_strLastError = "Unable to write value ["; 
m_strLastError += pszValueName; 
m_strLastError += "]"; 

return false; 

} 

return true; 

} 

bool CRegistryBase :: setValue (LPCSTR pszValueName, unsigned lonq lvalue) 
{ 

if (m_oRegistry . SetValue (pszValueName, CRegistry : : typeDoubleWord , ( PBYTE) & lvalue, 
sizeof (lvalue) ) == REG_FAILURE } 

i 

m_strLastError = "Unable to write value ["; 
m_strLas tError += pszValueName; 
m_strLastError +- " ] " ; 
return false; 

} 

return true; 

} 

bool CRegistryBase :: openKey (LPCSTR pszKeyPath) 
{ 

if (m_oRegistry .Open (pszKeyPath, CRegistrv : : permissionAllAccess ) == REG_FAILURE) 
{ 

m_strLastError = "Unable to open key ["; 
m_strLastError += pszKeyPath; 
rn_strLastError += "]"; 

return false; 

} 

return true; 

} 

bool CRegistryBase :: createKey (LPCSTR pszKeyPath) 
{ 

CRegistry: : CreationDisposi tion eDisposition ; 

if (m_oRegistry . Create ( pszKeyPath, 

NULL, 

CRegistry: : optionsNonVola tile , 
CRegistry: : permissionAllAccess , 
NULL, 

^Disposition) == REG_FAILURE) 

{ 

m_strLas tEr ror = "Unable to create key ["; 
m_strLastEr ror +- pszKeyPath; 
m_strLastError += "]"; 

return false; 
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} 

return true; 

} 
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8ifndef _regi s tryBase_h 
ffdefine _registryBase_h 

if include "registry . h" 

class CRegistr yBase 
{ 

protected : 

CRegistry m_oRegistry; 

enum { REG_FAILURE = 0, REG__SUCCESS = 1}; 

CRegistryBase ( ) ; 

bool connect (CRegistry: :_Keys eKey, LPCSTR pszComputer = NULL) ; 
bool getValue (LPCSTR ps zValueName , string & strValue); 
bool getValue (LPCSTR pszValueName, unsigned long & lvalue) ; 

bool getBinaryValue (LPCSTR pszValueName, LPBYTE " pBuf f , DWORD * pdwBuffSize) ; 

bool setValue (LPCSTR pszValueName, LPCSTR pszValue); 

bool setValue (LPCSTR pszValueName, unsigned long lvalue); 

bool openKey (LPCSTR pszKeyPath); 

bool createKey (LPCSTR pszKeyPath); 

int enumKeys ( vector<s tring> & aryKeys); 

bool close () { return (rn_oRegi s try . Close ( ) TRUE); ) 
publ ic : 

string m_strLastError ; 

) ; 



flendi f 
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//{ {HO DEPENDENCIES) } 

// Microsoft Visual C++ generated include file. 
// Used by LCKicskCiien t . r c 

/ / 

^define I DS_SERVICENAME 100 
#define IDR LCKioskCl ient 100 



// Ne:<t default values for new objects 
/ / 

flifdef APSTUDIO_INVOKED 

#if ndef APSTUDIO_READONLY_SYMBOLS 

ffdefine _APS_NEXT_RESOURCE_VALUE 201 

^define __APS_NEXT_COMMAND_VALUE 32768 

lidefine _APS_NEXT _CONTROL_VALUE 201 

^define _APS_NEXT_SYMED_VALUE 101 

If end if 

# end if 
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// stdafx.cpp : source file that include:? just the standard includes 

// stdafx.pch will be. the pie-compiled heade-x 

// stdafx . obj will contain the pre -compiled type information 

include "stdafx.h" 

#ifdef _ATL_STATIC_REGISTRY 
ft include <statreg.h> 
# include <statr eg . cpp> 
# e n d i f 



Hinclude <atlimpl . cpp> 
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If include "stdafx.h" 

t? include " threadMa in . h" 

# include *' threadMoni tor . h " 

if include " filename Delimited . h" 
8 include "registryKClient .h" 

BOOL CKioskClientApp : : I nit Instance ( ) 
{ 

m_pthreadMonitor = new CThreadMonitor (this) ; 

BOOL fSuccess = m_pthr eadMonitor->Crea teThread ( 0 ) ; 

if ( ! fSuccess ) 

{ 

CLogMsgEvent rnsg ( LCEV_GENERIC , SVRTY_ERROR) ; 

msg << "Unable to create monitor thread in CKioskClientApp :: Initlnstance ()" ; 
msg . Post (_logAll ) ; 

} 

return fSuccess; 

} 

int CKioskClientApp :: Exit Ins tance ( ) 
{ 

m_pthreadMoni tor->Pos tThreadMessage (WM_QUIT, OL, OL) ; 
return 0; 

) 

int CKioskClientApp :: Run ( ) 
{ 

return CWinThr ead : : Run ( ) ; 

} 
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// t hi: sad-Monitor . cpp : implementation file 
// 

#include "stdafx.h" 
If include " lckioskclient . h M 
#include " threadMoni tor . h" 
^include "wndMonitor ISP . h" 

flifdef _DEBUG 
^define new DEBUG_NEW 
ffundef THIS_FILE 

static char THIS_FILE[] = FILE ; 

# end if 

/////////////////////////////////////// 

string CThreadMoni tor : :m_s t rWndClass ; 
IMPLEMENT_DYNCREATE (CThreadMoni tor , CWinThread) 

CThreadMonitor : : CThreadMoni tor (CWinThread * pthreadParent ) 

{ 

m_pthreadParent = pthreadParent; 
m_fError = false; 

} 

CThreadMonitor : : -CThreadMonitor ( ) 
{ 

} 

BOOL CThreadMonitor : : Initlnstance { ) 
{ 

if (m_strWndClass . size { ) = = 0) 

m_strWndClass = AfxRegisterWndClass (0) ; 

.'/ redo: instantiate a window here of type CWndMonit or . now the only type we have is 
// CWndMonit or 3 :SF . Derive new CWndMonitcr. s has needed. ex: CWndMon i tor DSL 

m_pMainWnd = new C WndMonitor ISP ( ) ; 

( (CWndMonitorlSP 4 ) m_pMainWnd ) ->m_pthr eadMoni tor = this; 

BOOL fSuccess = m_pMainWnd->CreateEx ( 0 , rn_s trWndCla ss . c_s tr ( ) , "wndlnternet", WS_POPUPtf 

CRect (0, 0, 0, 0) , NULL, 0}; 

if ( ! fSuccess ) 
{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_ERROR) ; 

msg << "Unable to create Monitor's main window in CThreadMoni tor :: Initlnstance ()" ; 
msg . Post (_logAll ) ; 
m__fError = true; 

m_pthreadParent->PostThreadMessage (WM__QUIT, 0, 0) ; 

} 

return fSuccess; 

} 

int CThreadMonitor : : Exit Instance ( ) 
{ 

delete m_pMainWnd; 

return CWinThread : : Exit Instance ( ) ; 

} 

BEGIN__MESSAGE_MAP {CThreadMonitor, CWinThread) 

//' { {AFX MSG MAP {CThreadMonitor) 

// NOTE - ;-.h'- '*:.U' s z v:i z& rd will add ard remove i-uu-p i n o; u^cros her?-, 
;/) ) AFX MSG HAP 



C:\Do cu ments and Settings \billyhe\My . . . \LCServices \LCKioskClient \ thread M onitor . cpp 
END_MESSAGE_MAP ( } 

///////////////////// /////// ///////////////////////////////////////////////// 
// C T h read M on.it o r message handlers 
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if if ! defined ( A FX_WN DMON I TOR_H 3 2 F92C5B_E2 F7_l 1 D3_B8 8 4_7 6D2 9FO0 000O INCLUDED_J 

jf define AFX_WNDMONITOR_H 32F92C5B__E2F7_llD3_B8 8 4_7 6D2 9FO00OOO INCLUDED_ 

#if _MSC_VER > 10 00 
#pragma once 

ifendif // __MSC_VER > 1000 

// wndMonitor.h : header file 

/ / 

class CThreadMonitor ; 

///////////////////////////////////////////////////////////////////////////// 
// GWndMonitor window 

^include "registryKClient . h" 

class CWndMonitor : public CWnd 
i 

friend class CThreadMonitor; 
/ / Construction 
public : 

CWndMonitor ( ) ; 

// Attributes 
public : 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
//{{AFX VIRTUAL (CWndMonitor } 
//} } AFX^VIRTUAL 

// Implementation 
publ ic : 

virtual -CWndMoni tor ( ) ; 

/ / Generated message map functions 
protected: 

//{ {AFX_MSG (CWndMonitor) 

at;- ro:?;;i int OnC.rsst.sr (LlrOR^ATES?;- r ;cr i r C cs~a ^e.St ru-.r } ; 
//jTaFX MSG 
DECLAREJ*ESSAGE_MAP ( ) 

protected : 

unsigned long m_l Proclnt er val ; 

CThreadMonitor * m_pthr eadMoni tor ; 

CRegistryKClient m_r egis t ryKCl ien t ; 

} ; 

///////////////////////////////// //////////////////////////////////////////// 
//{ {AFX_It«SERT_LOCATION) 1 

/ / M i c v o soft Vis u a I C + + w i 1 } i n s e i -i ci \ ■ i o r j , i e c J <*, r 1. 1 o n s j mm r • d i a t c ! y h^f^re t h e 
previous line. 

frendif ,'/ ! defined (AFX JUWHCIU. TOR H 32F'?/C::.B E 2 F 7 IIP J E £ ; > : 'i _ " ? 0 D2 f* ? C 0 0 0 0 INCLUDED } 
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ft a f ! defined ( AFX_WNDMONITORISPjH 32 F92C5C_E2 F7_11D3_B8 8 4_7 6D2 9F000000 INCLUDED_) 

li define AFX_WNDMONITORISP_H 3 2 F92C5C_E2 F7_l 1 D3~B8 8 4_7 6D2 9 FO 00000 INCLUDED^ 

Sir _MSC_VER > 1000 

#pragma once 

#endif // _MSC_VER > 1000 

.// wndMonitoi ISP . h : header file 



include "wndMonitor.h" 
^include "dialer. h" 



///////////////////////////////////////////////////////////////////////////// 
// CWndMonitorISP window 



class CWndMonitorISP : public CWndMonitor 
{ 

// Construction 
public: 

CWndMonitorISP {) ; 



// Attributes 
public : 

// Operations 
public : 



// Overrides 

// ClassWizaxd generated virtual function overrides 
/ / i { AFX__VI R7UAL (CWndMonitorISP} 
// } } AFX VIRTUAL 



// Implementation 
public : 

virtual -CWndMonitorISP () ; 



// Generated message map functions 
p.r otected : 

//{ {AFXJ-1SG {CWndMonitorISP} 

af- mag in I On C ?. e a t e \ L P C RE AT E S T R U C T ipCrea test ruct } ; 

arrjiog v-:id r :uT i me r l U INT nlDRvent i; 
//UAFX MSG 
DECLARE~MESSAGE_MAP ( ) 

protected : 

static UINT m_nRasDialMsg; 

enum { RE TRY__ FOREVER = -1 } ; 

enum { TIMER_CHECKTIME = 1, // check time for processing 

TIMER_RETRY }; // retry a failed connect 

enum { INTERVAL_CHECKTIME - 60000 }; // how often to look at the time fox 
or oces sines 



// for debug ing purposes 

enum State {ST_NONE, ST_CHECKTIME, ST_CONNECTING , ST_RETRY I NG , ST^EXCHANGING , * 
ST_AP PLYING } ; 

State m_ePreviousState ; 

State m estate; 



int 

boci 

boo! 

CDialer 4 
CDialerRAS + 
CDialerWinlnet * 



m_nRet ryCount ; 
m_f UseRas ; 
m_f ExchangeDone ; 
injpdialer ; 
m_pdialerRas ; 
m_pdialerWinInet ; 
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LRESULT onTimer Chec kTime (WPARAM wParam, LPARAM lParam) ; 
bool onTimerRetry ( ) ; 

LRESULT onExchange (WPARAM wParam, LPARAM lParam); 
LRESULT onApply (WPARAM wParam, LPARAM lParam); 
LRESULT onTryConnect (WPARAM wParam, LPARAM lParam); 
bool exchangeFiles ( ) ; 
bool dele t eOldBackups ( ) ; 

void setState (State eNewState ) {m_ePreviousState = m_eState ; m_eSta te = eNewState;} 
static bool _f uncSortFileName ( string & strl, string & str2); 

afx_msg LRESULT onRa s Dia IReport ( WPARAM wRasConnState, LPARAM dwError) ; 
afx_msg LRESULT on Di alConnect (WPARAM wParam, LPARAM dwError); 

} ; 

/ //^V ////////////// //VV ////////////// ////////////////////////V //////// /////// 
// { { AFX INSERT LOCATION) } 

// Microsoft Visual C + + will insert additional declarations immediately b?1.'.re the * 
P r e '} '\ o u.« .'.inc. 

flendif // ! d«?f i tied ( AFM DMON I TOP IS P H ,:OF?2C5C E2F7 UD3 8£H4 ? 6D::?F000'K^ IHCU'CM) J 
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#ifndef _zipUtil_h 
If define _zipUtil_h 

class CZipUtil 
{ 

public : 

enum { ZF_OverWrite = 0x0001, 

Z F_U s e Direct or yNames = 0x0002 } ; 

public : 

CZipUtil ( ) ; 

virtual -CZipUtil { ) ; 

virtual bocl unzipFile (LPCSTR pszZipFile, LPCSTR ps zTar getDir , unsigned short nFlags) 
= 0; 

} ; 

class CZipUtilXceed : public CZipUtil 
{ 

protected: 

XZip : : IXceedZipPtr m_spZip; 

public : 

CZipUtilXceed ( ) ; 

virtual bool unzip File (LPCSTR pszZipFile, LPCSTR ps zTar get Dir , unsigned short nFlags) 

} ; 



If end if 
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#include "stdafx.h" 
#include "zipUtil.h" 

CZipUtil: :CZipUtil () 

{ 

} 

CZipUtil : : -CZipUtil ( ) 

{ 

} 

CZipUtilXceed: : CZipUt ilXceed ( ) 
{ 

HRESULT hr = m_spZip . Createlnstance ( uuidof (XZip : : XceedZip) ) ; 

if (FAILED (hr)) 
{ 

CLogMsgEvent msg < LCEV_GENERIC , SVRTY_WARNING) ; 

msg << "Unable to Instantiate XceedZip. Error = [Ox" << std::hex << hr << "J";, 
msg. Post (_logAll) ; 

} 

} 

bool CZipUtilXceed :: unzipFile (LPCSTR pszZipFile, LPCSTR pszTargetDir , unsigned short 
nFlags) 

{ 

bool f Success = true; 

m_spZip- >ZipFilename = pszZipFile; 
m_spZip- >UnzipToFolder = pszTargetDir; 

m_spzip- >PreservePaths = (nFlags & ZF_UseDirectoryNames ) ? TRUE : FALSE; 

m_spZip- >SkipIf Existing = (nFlags & ZF_OverWrite ) ? FALSE : TRUE; 

XZip : rxcdError eErrorCode = m_spZip- >Unzip { ) ; 

if (eErrorCode != XZip : : xerSuccess ) 

{ 

CLogMsgEvent msg (LCEV_GENERIC / SVRTY_WARNING) ; 

msg << "Error occured while unzipping file [ " << pszZipFile << " ] to directory [ " ; 
msg << pszTargetDir << »]. Xceed Error Code = [ " << (long) eErrorCode << "]"; 
msg . Post (_logAll) ; 
fSuccess = false; 

} 



return fSuccess ; 
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// Encrypt or . cpp: implementation of the CEncryptor class. 

///////////////////////////////////////////////// ////////// /////////// 
include "StdAfx.h" 
^include "Encryptor . h" 
# include <time.h> 

flifdef _DEBUG 
Sundef THIS_FILE 

static char THIS_FILE[]= FILE ; 

ft e n d i f 

/////////////////////////////////////////////// ///////////■/////////// 
/ / Construction /Destruction 

/ft/////////////////////////// /\'/// //////// ///!%'///// /////////// 

CEncryptor : : CEncryptor ( ) 
{ 

m_strDef aultKey - "phepmagi"; 

} 

FUNCTION: Encrypt 

CLASS: CEncryptor 

DESCRIPTION: Encrypts an a sell string into a .series of ascii hex digits. 

PARAMETERS: pssln ■- pointer to string to encrypt 

pszKey - encryption key, this parameter may be null, in which 

case a default encryption key is used. 
strOut - reference to a string thai: will receive the encryption 
r e s u 1 1 s . 

RETURNS: true on success 

false on error 

bcol CEncryptor :: Encrypt (LPCTSTR pszln, LPCSTR pszKey, string & strOut) 
{ 

strOut = ; 

string strKey = pszKey == NULL ? m_str Default Key : pszKey; 
int nKeyLen = s t rKey . si ze ( ) ; 
int nKeyPos = -1; 

srand ( {unsigned ) time (NULL) ) ; 
int nOffset = rand() % 255; 

char pszBuf f [4] ; 

sprint f (pszBuf f , "%02x", nOff set) ; 
strOut += pszBuff; 

char chKey; 

for (int i - 0; pszln [i] != 0; i++) 
{ 

int nSrcAscii = (pszln[i] + nOffset) % 255; 

if (nKeyPos < nKeyLen - 1} 
{ 

nKeyPos++ ; 

chKey = strKey [nKeyPos ] ; 

} 

else 
{ 

nKeyPos * -1; 
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chKey - 0; 

} 

nSrcAscii chKey; 

sprint f (pszBuf f , "%02x w , nSrcAscii) ; 
strOut += pszBuf f ; 
nOffset = nSrcAscii; 



return true; 



FUNCTION : Decrypt 

CLASS: C En crypto r 

DESCRIPTION: Given encrypted data, decrypts back to its original form. 

PARAMETERS: ps sin - pointer t c encrypted data . 

pszKey - pointer to !:ey chat was used to encrypt the data. This 

may be NULL in which case a default key is used. 
strOut - reference to a Strang that will receive the dec*: typed 

data . 



RETURNS: true - no errois 

false - an. error occur ed 



bool CEncryptor :: Decrypt (LPCTSTR pszln, LPCSTR pszKey, string & strOut) 
{ 

string strKey = pszKey NULL ? nn : pszKey; 
if (strKey . size ( ) == 0) 

strKey = m_s trDef aul t Key ; 



strOut = ""; 



int nSrcPos = 2 ; 

int nKeyPos = -lu- 
string strSrc - pszln; 

int nSrcLen = s trSrc . si ze ( ) ; 

int nKeyLen = strKey . size () ; 

int nSrcAscii = 0; 

int nTmpSrcAscii = 0; 



int nOffset; 

if (AsciiHexToInt (strSrc. substr (0, 2), &nOf f set) ) 
return false; 



char chKey; 

do 
{ 

if (AsciiHexToInt (strSrc . substr (nSrcPos , 2), snSrcAscii)) 
return false; 



if (nKeyPos < nKevLen - 1) 
{ 

nKeyPos += 1; 

chKey = strKey [nKeyPos ] ; 

} 

e 1 s e 
< 

nKeyPos = -1; 
chKey - 0; 

} 
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nTmpSrcAscii = nSrcAscii A chKey; 

if (nTmpSrcAscii <= nOffset) 

nTmpSrcAscii += 255 - nOffset; 

else 

nTmpSrcAscii -= nOffset; 

strOut += ( char ) nTmpSrcAscii ; 
nOffset = nSrcAscii; 
nSrcPos += 2; 
} while (nSrcPos < nSrcLen) ; 

return true; 

} 

FUNCTION : AsciiHexToInt 
CLASS : CEncryptor 

DESCRIPTION: Helper function that takes a string of ascii hex digits 

(ie. "EF34DC" ) -and retains the binary decimal representation. 

PARAMETERS: pszString - ascii hex digits to convert 

pn Answer - pointer to an tnt that will receive the conversion. 

RETURNS: true on error 

false on success 

short CEncryptor : : AsciiHexToIn t (LPCTSTR pszString, int * pnAnswer) 
{ 

int nPlaces = s trlen ( ps zSt r ing ) - 1; 

short wError - FALSE; 
char cWork; 
int nAnswer = 0; 

for (int i = 0; ! wError (cWork = pszString [ i] ) != 0; i++) 

{ 

cWork = toupper (cWork) ; 
if ( ! isdigit (cWor k) ) 
{ 

cWork — 'A' - 10; 
if (cWork < 0 I I cWork > 15) 
wError = TRUE; 

} 

else 

cWork & = 0x0 f; 

if (nPlaces) 

nAnswer +- cWork'* (nPlaces-- * 16); 

else 

nAnswer += cWork; 

} 



'pnAnswer ~ nAnswer; 
return wError; 

} 
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/*////////////////<///////////;/////////////////;;/.'////// 
//////////////////////////////////////////////////////// 

Encrypt/ Decrypt Rotines 
//////////////////// ///// //////// /////////////////////// 

Dependencies : 

# include <string> 
# include < 1 i. s t "> 
# include <i'stre3m> 
II include <stx s>trearn> 
using namespace std; 



//////////////////////////////////////////////////////// 
///////////////////////////////////////////////// ///////*/ 



#ifndef _ENCRYPTOR_H 
#define _ENCRYPTOR_H 

#if _MSC_VER >= 1000 
# pragma once 

#endif // _MSC_VER .> = 1000 

class CEncryptor 
{ 

protected : 

string m_str Default Key; 

short AsciiHexToInt ( LPCTSTR pszString, int* pnAnswer ); 
short AsciiHexToInt ( strings strln, int* pnAnswer ) 

{return AsciiHexToInt { strln . c_str () , pnAnswer);} 

public : 

CEncryptor ( ) ; 

bool Encrypt (LPCTSTR ps zln , • LPCSTR psKey, string & strOut); 
bool Decrypt (LPCTSTR pszln, LPCSTR psKey, string & strOut); 

} ; 

#endif // EUCRYPTGR H 
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#include "stdafx.h" 

3 i nclude "f i lenameDelimited . h" 



CFileName Delimited : : C File Name Delimited ( ) 

{ 

m_bDelimiter = 

} 

bool CFileNameDelimited :: append (LPCSTR ps zFieldName , LPCSTR ps zFieldValue ) 
{ 

FILENAME^ FIELD rField; 

rField . st rName = pszFieldName; 
rField . strValue = pszFieldVa lue ; 

push_back (rField) ; 

r e. t u r n t r u e ; 

} 

bool CFileNameDelimited : : append (LPCSTR ps z FieldName , long lFieldValue) 
{ 

char pszValue [20] ; 

ltoa (lFieldValue, pszValue, 10); 

return append (ps zFieldName , pszValue); 

} 

bool CFileNameDelimited: : append (LPCSTR ps z FieldName , DATE dateValue, LPCSTR ps zDate Format ) 

{ 

COleDateTirne odt (dateValue) ; 

char * psz Format = (char + ) ps z Da te Forma t ; 
if (pszFormat == NULL) 

pszFormat = "%m%d%y"; 

append (pszFieldName, (LPCSTR) odt . Format (pszFormat) ) ; 

return true; 

} 

int CFileName De limited: rgetlndex (LPCSTR pszFieldName ) 
{ 

int nCount = si ze ( ) ; 

for (int i = 0; i < nCount; i++) 
{ 

if (( + this )[ i ]. st rName . compare (pszFieldName ) == 0) 
r e t u r n i ; 

) 

return -1; 

} 

bool CFileNameDelimited :: get ( int nldx, string & strValue) 
{ 

strValue = 

if (nldx < 0 II nldx >- sized ) 
return false; 

strValue = (* this ) [nldx] . strValue ; 

return true; 

} 

bocl CFileNameDelimited :: get ( int nldx, long & lFieldValue) 
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{ 

bool f Success; 
string strValue; 

if (f Success = get (nldx, strValue)) 

lFieldValue = atol ( strValue . c_str ()) ; 

else 

lFieldValue = 0; 
return fSuccess; 

} 

bool CFileNameDelimited: :get (int nldx, DATE & dateValue) 
{ 

bool fSuccess; 
string strValue; 

if (fSuccess = get (nldx, strValue)) 
{ 

strValue. insert (4, "/") ; 
strValue . insert (2, "/") ; 
COleDateTime odt; 

odt . Parse Da teTime (strValue . c_str { ) ) ; 
dateValue = (DATE) odt; 

} 

else 

dateValue = 0.0; 
return fSuccess; 

} 

bool CFileNameDelimited: : set (int nldx, LPCSTR pszValue) 
{ 

if (nldx < 0) 

return false; 

// pad cut vector up to occur a nee referenced 

if (nldx >= size { ) ) 

{ 

for (int. i = size(); i < = nldx; i + + ) 
append ( " " , ; 

) 

( * this ) (nldx] . strValue - pszValue; 
return true; 

} 

bool CFileNameDelimited :: set ( int nldx, long lFieldValue) 
{ 

char pszValue [20] ; 

Itoa {lFieldValue, pszValue, 10); 

return set (nldx, pszValue); 

} 

bool CFileNameDelimited :: set ( int nldx, DATE dateValue, LPCSTR pszDateFormat ) 
{ 

COleDateTime odt ( da t eVa lue ) ; 

char * pszFormat = (char * ) pszDateFormat; 
if (pszFormat == NULL ) 

pszFormat = "%m%d%y"; 

return set (nldx, (LPCSTR) odt . Format (pszDateFormat )) ; 

} 
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bool CFileNameDelimited : : setFullName (LPCSTR pszFileName, boo! fClear) 
{ 

string strValue; 

if (fClear) 
clear ( ) ; 

string strName = pszFileName; 

// pick out; the extension if it exist 
int nExtPos = strName . find_last_of ( 1 .') ; 
if (nExtPos != string :: npos ) 
{ 

m_strExtension = strName . subs tr { nExtPos + 1, strName . size ( ) - nExtPos); 
strName . resize { nExtPos ) ; 

} 

int nldx = 0; 

// parse the name out into fields and set them 

if {strName . size ( ) ) 

{ 

int nLastPos ~ 0; 
int nNewPos = 0; 

while ( (nNewPos = str Name . find (m_bDel irni ter , nLastPos)) ! = s tr ing : : npos ) 
{ 

strValue = strName . substr (nLastPos, nNewPos - nLastPos); 
set (nldx++, strValue . c_s tr ( ) ) ; 
nLastPos ~ nNewPos + 1; 

} 

strValue = strName . substr (nLastPos , nNewPos - nLastPos); 
set (nldx++, strValue . c_str ( ) ) ; 

} 

// if rile name shorter than fields, clear values on fields 
int nSize = size ( ) ; 
for (; nldx < nSize; nldx++) 
set (nldx, "") ; 

return true; 

} 

void CFileNameDelimited : : setEx tension (LPCSTR pszExt) 
{ 

m_st rExtension = pszExt; 

} 

bocl CFileNameDelimited :: getFullName { str ing & strFileName) 
{ 

strFileName = 

CFileNameDelimited: :iterator it; 

for (it = begin(); it != end(); it++) 

{ 

if ( strFileName . size () ) 

strFileName += m_bDelimi ter ; 

strFileName +~ ( * it ). strValue ; 

} 

if (m_strExtension . si ze ( ) ) 
{ 

strFileName += "."; 
strFileName += m str Ex tension; 
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} 

return true ; 

} 

/////////////////////////////////////// 
// CFi leNciflifcKiosk 

CFileName Kiosk : : CFi leNameKios k { } 
{ 

append { "direct ion" , ""); 
append ( " kiosk_id" , ""); 
append { "date", "") ; 

} 
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#i fndef _f ilenameDelimited__h 
8 define _f ilenameDelimi ted_h 

struct FILENAME_FIELD 
{ 

string strName; 
string strValue; 

FILENAME^ FIELD & operator* (const FILENAME^FIELD & rField) 
{ 

strName - rField . strName; 
strValue = r Field . strValue ; 
return *this; 

} 

} ; 

class CFileNameDelimited : public vector < FILENAME_FIELD> 
{ 

p r o t e c t. e d : 

char m_bDelimiter ; 

string m_s tr Extension ; 

publ ic : 

CFileNameDelimited ( ) ; 

bool append (LPCSTR pszFieldName, LPCSTR pszFieldValue ) ; 
booi append (LPCSTR ps z FieldName , long 1 FieldValue ) ; 

bool append (LPCSTR ps zFieldName , DATE dateValue, LPCSTR pszDateFormat = NULL) ; 

bool get (LPCSTR ps z Fi eldName , string & strValue); 
booi get (LPCSTR ps z FieldName , long & 1 FieldValue ) ; 
bool get (LPCSTR ps z Fie 1 dName , DATE & dateValue); 

bool set (LPCSTR ps zFieldName , LPCSTR pszValue) ; 
bool set (LPCSTR ps z FieldName , long lFieldValue) ; 

bool set (LPCSTR ps z FieldName , DATE dateValue, LPCSTR pszDateFormat « NULL); 

bool get(int nldx, string & strValue); 
booi get(int nldx, long & lFieldValue) ; 
bool get(int nldx, DATE & dateValue); 

bool set(int nldx, LPCSTR pszValue); 
booi set(int nldx, long lFieldValue); 

booi set(infc nldx, DATE dateValue, LPCSTR pszDateFormat - NULL ) ; 

bool setFullName (LPCSTR pszFileName, bool fClear = false); 
vo id setExtension (LPCSTR ps zEx t ) ; 

booi get FullName ( string & s tr FileName ) ; 

int getlndex (LPCSTR pszFieldName); 

} ; 

inline booi CFileNameDelimited: :get (LPCSTR pszFieldName, string & strValue) 
{ 

return get ( getlndex ( ps zFieldName ) , strValue); 

} 

inline booi CFileNameDelimited :: get (LPCSTR pszFieldName, long £ lFieldValue) 
{ 

return get ( getlndex (pszFieldName ) , lFieldValue); 

} 

inline bool CFileNameDelimited :: get (LPCSTR pszFieldName, DATE & dateValue) 
{ 

return get (getlndex (pszFieldName ) , dateValue); 

} 
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inline bool CFileNameDelimi t ed : : set ( LPCSTR ps zFieldName, LPCSTR pszValue) 
{ 

return set ( get Index {ps zFieldName ) , pszValue); 

} 

inline bool CFileNameDelimit ed :: set { LPCSTR ps zFieldName, long 1 FieldVa lue ) 
{ 

return set (getlndex {pszFieldName ) , lFieldValue ) ; 

} 

inline bool CFileNameDelimi ted :: set {LPCSTR pszFieldName, DATE dateValue, LPCSTR * 
pszDateFormat ) 

{ 

return set (getlndex (pszFieldName) , dateValue, pszDateFormat); 

) 

/////////////////////////////////////////////////W //////////////////////// ////// 
// CFileHameKiosk 

class CFileNameKiosk : public CFileNameDelimited 
{ 

public: 

CFileNameKiosk {) ; 

} ; 

#endi f 
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// LCKics kServer . cpp : Implementation of Win Ma in 

// Note: Proxy/Stub Information 

// To build a separate proxy/stub DLL, 

// run runake -t LCKioskSe.rverp3.riU: in the project directory. 

#include "stdafx.h" 

#include "resource . h" 

# in elude <initguid.h> 

#include "threadMain . h" 

^include "LCKioskSer ver . h " 

if include "LCKios kServer_i ,c M 
# include <stdio.h> 

//////////////////////////////////////////////////// 
// MFC support 
CKioskServerApp _theApp; 

///////////////////////////////////////////////////// 
// ATL support: 
CServiceModule _Module; 

///////////////////////////////////// / i :' / / / / / / / / / /' / 
//Global dec a 1 r a t ion 3 

CLogNTEvents __1 ogEven t s ( " Kios k Server"); 
CLogFile _logFile { "c : \ \LCKioskServer .log") ; 

CLogDebug _logDebug; 
CLogMulti _logAll; 

BEGIN_OBJECT_MAP (ObjectMap) 
END_OBJECT_MAP ( ) 

LPCTSTR FindOneOf (LPCTSTR pi, LPCTSTR p2) 
{ 

while (pi != NULL && *pl != NULL) 
{ 

LPCTSTR p = p2; 

while (p != NULL *p != NULL) 

{ 

if ( -pi == + p) 

return CharNext ( pi ) ; 
p = CharNext (p) ; 

} 

pi - CharNext (pi) ; 

} 

return NULL; 

} 

// Although some of these functions are big they are declared inline since they are only vt 
u s e d on c e 

inline HRESULT CServiceModule :: Regi s ter Se r ver ( BOOL bRegTypeLib, BOOL bService) 
{ 

HRESULT hr = Colnitialize (NULL) ; 
if ( FAILED ( hr ) ) 
return hr; 

// Remove any previous service since it may point to 
// the incorrect file 
Uninstall ( ) ; 



// Add service entries 
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UpdateRegistryFromResource { IDR_LCKioskServer , TRUE) ; 

// Adjust' the AppID for Local Server or Service 
CRegKey keyAppID; 

LONG IRes = keyAppI D . Open ( HKEY_CLASSES_ROOT , _T("AppID"), KEY_WRITE) ; 
if (IRes != ERROR^SUCCESS) 
return IRes; 

CRegKey key; 

IRes = key. Open (keyAppID, _T ( " { BF8 2 35 64 -E93B- 1 1 D3-B8 8C-CC7 92E0000O0 } " ) , KEY_WRITE); 
if (IRes != ERROR__SUCCESS) 

ret u rn IRes; 
key. DeleteValue (_T ( "Local Service" ) ) ; 

if (bService) 
{ 

key . Set Value { JT ( "LCKioskSer ver " ) , _T ( "LocalService" ) ) ; 
key . Set Value (_T ( " -Service " ) , _T ( "ServiceParamet er s " ) ) ; 

// Create service 
Install () ; 

) 

// Add object entries 

hr = CComModule : : Register Server (bRegTypeLib) ; 

CoUninitialize ( ) ; 
return hr; 

} 

inline HRESULT CServiceModule :: Unregister Server ( ) 
{ 

HRESULT hr = Colni t ia 1 i ze ( NULL ) ; 
if ( FAILED ( hr ) ) 

return hr; 

// Remove service entries 

Update Reg i st ryFromRe source ( I DR_LCKios kServer , FALSE) ; 

// Remove service 
Uninstall ( ) ; 

// Remove object entries 
CComModule: : Unregister Server (TRUE) ; 
CoUninitialize ( ) ; 
return S_OK; 

} 

inline void CServiceModule :: Init (_ATL_OBJMAP_ENTRY + p, H INSTANCE h, UINT nSer viceNamel D, * 
const GUID + plibid) 

• { 

CComModule :: Init (p, h, plibid); 
m_bService = TRUE; 

LoadString (h, nServiceName I D, m_s zServi ceName , sizeof (m_szSer viceName ) / sizeof ✓ 
(TCHAR) ) ; 

// set up the initial service status 
m_hServiceStatus = NULL; 

m_status .dwServiceType = SERVICE_WIN32_OWN_PROCESS; 
& m_status .dwCurrentState = SERVICE_STOPPED; 

m_status . dwControlsAccepted = SERVICE_ACCEPT_STOP; 

m_status . dwWin32ExitCode = 0; 

m_status . dwServiceSpecif icExi tCode = 0; 

m_status . dwCheckPoint = 0; 

m_s ta tus . dwWai tHint = 0; 

) 



LONG CServiceModule :: Unlock ( ) 
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{ 

LONG 1 = CComModule : :Unlock() ; 
if (1 0 !m__bService) 

PostThreadMessage (dwThreadID, WM_QUIT, 0, 0) ; 

return 1; 

} 

BOOL CServiceModule : : Islnstalled ( ) 
{ 

BOOL bResult = FALSE; 

SC_HANDLE hSCM - : : OpenSCManager (NULL, NULL , SC_MANAGER_ALL_ACCESS ) ; 

if (hSCM != NULL) 
{ 

SC_HANDLE hService = : : OpenService (hSCM, m_szServiceName , SERVICE_QUERY_CONFIG ) ; 

if {hService NULL) 

{ 

bResult = TRUE; 

: : CloseServiceHandle (hService ) ; 

} 

: :CloseServiceHandle (hSCM) ; 

} 

return bResult; 

} 

inline BOOL CServiceModule :: Ins tall ( ) 
{ 

if (Islnstalled ( ) ) 
return TRUE; 

SC_HANDLE hSCM = : : OpenSCManager (NULL, NULL, SC_MANAGER_ALL_ACCESS ) ; 

if (hSCM NULL) 

{ 

MessageBox (NULL, _T( "Couldn't open service manager"), m_s zSer viceName , MB_OK) ; 
return FALSE; 

} 

// Get ':he executable file path 
TCHAR szFilePath [_MAX_PATH] ; 

: :GetModuleFileName (NULL, szFilePath, _MAX_PATH) ; 

SC_HANDLE hService = : : CreateSer vice ( 

hSCM, m_szServiceName, m_s zServiceName , 
SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS , 
SERVICE_DEMAND__START, SERVICE_ERROR_NORMAL , 
szFilePath, NULL, NULL, __T ( "RPCSS\0 M ) , NULL, NULL); 

if (hService == NULL) 
{ 

: :CloseServiceHandle (hSCM) ; 

MessageBox (NULL, _T ( "Couldn • t create service"), m_s zSer viceName , MB_OK) ; 
return FALSE; 

) 

: .-CloseServiceHandle (hService) ; 
: : CloseServiceHandle (hSCM) ; 
return TRUE; 



inline BOOL CServiceModule :: Uninstall ( ) 
{ 

if ( ! Islnstalled ( ) ) 
return TRUE ; 

SC_HANDLE hSCM = : : OpenSCMa nager ( NULL , NULL, SC_MANAGER_ALL_ACCESS ) ; 
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if (hSCM == NULL) 
{ 

MessageBox (NULL, _T ( "Couldn ' t open service manager"), m_s zServiceName , MB__OK ) ; 
return FALSE ; 

} 

SC_HANDLE hService = : : OpenSer vi ce { hSCM, m_s zServiceName , SERVICE_STOP I DELETE); 

if (hService == NULL) 
{ 

: : CloseServiceHandle (hSCM) ; 

MessageBox (NULL, _T ( "Couldn ' t open service"), m_szServiceName , MB_OK) ; 
return FALSE ; 

} 

SERVICE_STATUS status; 

: :ControlService {hService, SERVICE_CONTROL_STOP , &status) ; 

BOOL bDelete = :: DeleteSer vice (hService) ; 
: : CloseServiceHandle (hService) ; 
: :CloseServiceHandle (hSCM) ; 

if (bDelete) 

return TRUE; 

MessageBox (NULL, _T( "Service could not be deleted"), m_s zServiceName , MB_OK) ; 
return FALSE; 

} 

/ / / / / / / / / / / / / / / / / / / / / ////// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /' / / / / / / / / ./ / ./ / / / / / / / / / / / / / / / / / / 

void CServiceModule : : LogEvent (LPCTSTR pFormat, ...) 
i 

TCHAR chMsg [2048] ; 
va_list pArg; 

va_star t (pArg , pFormat); 

_vstpr intf ( chMsg, pFormat, pArg) ; 

va_end ( pArg ) ; 

CLogMsgEvent ( LCEV_GENERIC , -1, chMsg) .Post (_logAU) ; 

) 

/////////////////////////////////////// 
//// 

// Service startup and registration 
inline void CSer viceModule : : Star t ( ) 
i 

SERVICE_TABLE_ENTRY st [ ] = 
{ 

{ m__szServiceName, _ServiceMain }, 
{ NULL , NULL } 

} ; 

if (m_bService ! : : Star t ServiceCtrlDispatcher ( s t ) ) 
{ 

m_bService = FALSE; 

} 

if (m_bService == FALSE) 
Run() ; 

} 

i n 1 i n e vol d C Se r vi c eModu 1 e : rServic eMai n ( DWORD / 1 dwAi: gc * / , LPTSTR* / 4 ' 1 ps zAr o v * / ) 
{ 

// Recister the control request handier 
m_status .dwCurrentState - SERVICE__START_PENDING ; 

m_hServiceStatus = Regi s ter ServiceCtr lHandler (m_s zServiceName , _Handler); 

if (m_hServiceStatus — NULL ) 

{ 
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CLogMsgEvent { "Handler not installed" ). Post {_logAl 1 ) ; 

return; 

} 

SetServiceStatus ( SERVICE_START_PENDING) ; 

m_status . dwWin32ExitCode - S „ 0K ' 
m^status . dwCheck Point = 0; 
m_sta tus . dwWai tHint = 0; 

// When the Hun function returns, the service has stopped. 
Run ( ) ; 

SetServiceStatus { SERVICE_STOPPED) ; 

} 

inline void CServiceModule :: Handler ( DWORD dwOpcode) 
< 

switch (dwOpcode) 
{ 

case SERVICE_CONTROL_STOP: 

SetServiceStatus ( SERVICE_STOP_PENDING ) ; 
PostThreadMessage {dwThreadID, WM_QUIT, 0, 0); 



b r e a k ; 






case SERVICE^ 


_CONTROL_ 


PAUSE: 


break; 






case SERVICE^ 


CONTROL^ 


CONTINUE: 


b r. e. a k ; 






case SERVICE_ 


CONTROL^ 


INTERROGATE 


b r e a k ; 






case SERVICE^ 


_CONTROL_ 


SHUTDOWN: 


break ; 






default: 







CLogMsgEvent { "Bad service request "). Post (_logAll ) ; 

} 

} 

void WINAPI CServiceModule : : _Ser viceMain ( DWORD dwArgc, LPTSTR* lpszArgv) 
{ 

__Module . ServiceMain (dwArgc, lpszArgv) ; 

} 

void WINAPI CServiceModule : :_Handler (DWORD dwOpcode) 
{ 

^Module .Handler {dwOpcode ) ; 

} 

void CServiceModule :: Se tSer viceSta tus ( DWORD dwState) 
{' 

m_status . dwCur rentSta te = dwState; 

: : SetServiceStatus (m_hServiceStatus , &m_status) ; 

} 

void CServiceModule :: Run ( ) 
{ 

_Module . dwThreadID = GetCur r en t Threadld ( ) ; 

HRESULT hr = Colni t iali zeEx ( NULL, COINIT_MULTITHREADED) ; 

if ( FAILED (hr ) ) 

{ 

CLogMsgEvent msg ( LCEVJ3ENERIC , SVRTY_ERROR) ; 

msg << "Colni tializeEx ( ) failed. Error = [Ox" << std::hex << hr << •*]"; 
msg . Post (_logAll ) ; 
return ; 

} 

// This provides a HULL DACL which will allow access to everyone. 

CSecur ityDescr iptor sd; 

sd . In it ializeFromThreadToken ( ) ; 
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hr = CoInitializeSecurity (sd, -1, NULL , NULL , 

RPC_C_AUTHN_LEVEL_PKT, RPC_C_IMP_LEVEL_IMPERSONATE , NULL , EOACJsfONE, NULL) ; 
_ASSERTE (SUCCEEDED (hr) ) ; 

hr - _Module.RegisterClassObjects ( CLSCTX_LOCAL_SERVER I CLSCTX_REMOTE_SERVER, * 
REGCLS__MULTI PLEUSE ) ; 
__ASSERTE (SUCCEEDED (hr) ) ; 

///////////////////////////////////////////////////////// 
// MFC support 

if (_theApp . InitApplication ( ) FALSE) 
{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_ERROR) ; 
msg << "_theApp . InitApplication ( ) failed"; 
msg . Post (_logAll) ; 
return; 

} 

if (_theApp . Initlnstance () == FALSE) 
{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_ERROR) ; 
msg << "_theApp . Initlnstance ( ) failed"; 
msg . Post (_logAll ) ; 
_theApp . Exit Instance () ; 
return ; 

} 

// end MFC support: 

//////////////////////////////////////////// / -'/////////// 



CLogMsgEvent ("Service started") .Post (__logAll) ; 
if (m_bService) 

SetServiceStatus (SERVICE_RUNNING) ; 

_theApp . Run { ) ; 

__theApp . Exitlnstance ( ) ; 

CLogMsgEvent ( "Service stopped" ) .Post (_logAll ) ; 
__Module . RevokeClassObject s ( ) ; 
CoUninitialize ( ) ; 

) 

U ///////// ///////////// N // i ////////// t\H / i /////://////////// i/ / ///////// f 

// 

extern "C" int WINAPI _tWinMa in ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, LPTSTR X 
lpCmdLine , 

int nShowCmd) 

{ 

_logAll . AddLog { &__logEvent s ) ; 
_logDebug . Enabled (false) ; 
_logAll .AddLog (&_logFile) ; 

Sifdef _DEBUG 

_logEvents .EnableTranslation(true) ; 

_log Debug . Enabled (true) ; 

_logAll .AddLog U_logDebug) ; 
§ end if 

lpCmdLine ~ GetCommandLine ( ) ; //this line necessary for ATL MIN CRT 

^Module . Init (ObjectMap, hlnstance, I DS_SERVICENAME, & LI EI D_LCKIOSKSERVERLib ) ; 

_Module.m_bService - TRUE; 

TCHAR ssTokens[] - T ("-/"); 
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LPCTSTR IpszToken = FindOneOf ( lpCmdLine , szTokens); 

while (IpszToken ! = NULL) 

( 

if {lstrcmpi (IpszToken, _T ( "UnregServer " ) } = = 0) 
return _Module . Unregister Server () ; 

// Register as Local Server 

if (lstrcmpi (IpszToken, _T ( "RegServer " ) ) ==0 ) 

return _Module . Regi ster Server (TRUE, FALSE); 

// Register as Service 

if (lstrcmpi ( IpszToken, _T ( "Service" )) ==0 ) 

return _Module . Regi sterServer ( TRUE , TRUE); 

// Initialize Configuration Registry Entries 
if (lstrcmpi (IpszToken, _T ( "InitReg") ) ==0) 
{ 

return 0; 

} 

IpszToken = FindOneOf ( lps zToken , szTokens); 

} 

// Are we Service or Local Server 
CRegKey keyAppID; 

LONG IRes = keyAppI D . Open ( HKEY_CLASSES__ROOT , _T ( " AppI D " ) , KEY_READ) ; 
if (IRes != ERROR^SUCCESS) 
return IRes; 

CRegKey key; 

IRes = key . Open (keyAppID, _T ( " { BF823564-E93B- 11D3-B88C-CC7 92E000000 } " ) , KEY_READ) ; 
if (IRes != ERROR_SUCCESS) 
return IRes; 

TCHAR s z Value [_MAX_PATH ] ; 
DWORD dwLen = _MAX_PATH; 

IRes = key . QueryValue ( szValue , _T { "LocalService" ) , sdwLen) ; 

_Module . m_bService = FALSE; 
if (IRes == ERROR_SUCCESS) 

_Module . m_bService = TRUE; 

// A FX internal initialization 

if ( ! Af xWinlnit (hlnstance, hPrevIns tance , lpCmdLine, nShowCmd) ) 

CLogMsgEvent ( LCEV_GENERIC , SVRTY_ERROR, "AfxWinlnit failed. ") . Post (_logAll) ; 

else 

_Module . Start ( ) ; 

// When we get here, the service has been stopped 
return _Module . m_s tatus . dwWin32Exi tCode ; 

} 
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^include "stdafx.h" 
^include "Logging. h" 
fjinclude "Registry. h" 

/////////////////////////////////////// 
/////////////////////////////////////// 
// Log messages 

////////////////////////////////// //// / 
/////////////////////////////////////// 

CLogMsg : : CLogMsg ( ) 
{ 

m_pszText = NULL; 

} 

CLogMsg: : CLogMsg ( LPCSTR pszMessage) 
{ 

m_pszText = NULL; 
if (pszMessage != NULL) 
^-this << pszMessage; 

} 

CLogMsg :: CLogMsg ( string & strMessage) 
{ 

m_pszText = NULL; 
*this << strMessage; 

} 

CLogMsg : : -CLogMsg ( ) 
{ 

ReleaseBuf f ers { ) ; 

} 

CLogMsg & CLogMsg : : Format (LPCSTR pszFormat, . ..) 
{ 

Clear { ) ; 

va_list pArgs; 

va^star t (pArgs , pszFormat); 

TCHAR pszBuffer [1024]; 

vsprintf (pszBuf f er , pszFormat, pArgs); 

va_end (pArgs ) ; 

*this << pszBuffer; 

return + this; 

} 

void CLogMsg :: Post (CLogBase & log) 
{ 

log . Post ( this ) ; 
return; 

} 

long CLogMsg :: Event ( ) 
{ 

return 0 ; 

} 

long CLogMsg :: Severity ( ) 
{ 

return EVENTLOG_SUCCESS ; 

} 

TCHAR ++ CLogMsg :: Arguments (long * plArgCount) 
{ 

*plArgCount = 1; 
Text { ) ; 

return &m_pszText; 

} 
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TCHAR * CLogMsg: :Text () 
{ 

Re lease Buf f ers ( ) ; 

*this << ' \0' ; 

TCHAR * pszText = str {) ; 

int. nLen = pcount ( ) ; 

m_pszText = new TCHAR [nLen + 1] ; 

_tcscpy (m_pszText , pszText); 

freeze(false) ; 

return m_pszText; 

) 

void CLogMsg ::ReleaseBuffers() 
{ 

if (m_pszText != NULL) 
{ 

delete [] m_pszText; 
m_pszText = NULL; 

} 

return; 

} 

void CLogMsg :: Clear () 
{ 

ReleaseBuf f ers ( ) ; 
seekp ( 0) ; 
r e t u r n ; 

} 

void CLogMsg :: appendError (_com_error & e) 
{ 

string str Error = (char *) e . Description () ; 
HRESULT hr - e. Error {) ; 

"this « "COM Error = [ " « strError << " j . hr = [" << std::hex << hr << "]."; 

return ; 

} 

void CLogMsg: : appendError (HRESULT hr) 
{ 

*this << "hr = [" << std: :hex << hr << std::dec << "]"; 
r e i; u r n ; 

} 

void CLogMsg :: appendError (CLogMsg & em) 
{ 

appendError ({ std: : strstream &) em); 

} 

void CLogMsg :: appendError (std :: strstream & strmError) 
{ 

strmError << ' \0 * ; 

"this << strmError . str () ; 

strmError . freeze {false ) ; 

} 

void CLogMsg :: setError (_com_error & e) 
{ 

clear () ; 
appendError (e) ; 

} 

void CLogMsg: : set Err or ( HRESULT hr) 
{ 

c 1 e a r ( ) ; 

appendError (hr ) ; 

) 
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void CLogMsg : : setError (LPCSTR pszError) 
{ 

clear () ; 

*this << pszError; 

} 

void CLogMsg :: setError {CLogMsg & em) 
{ 

clear ( ) ; 

appendError (em) ; 

} 

void CLogMsg :: getError { string & strError) 
{ 

*this << * \0 ' ; 
strError = s tr ( ) ; 
f reeze ( false ) ; 
return; 

} 

string CLogMsg :: getError { ) 
{ 

string strError; 
* this << ' \0 ' ; 
strError = str ( ) ; 
freeze (false) ; 
return strError ; 

} 

void CLogMsg :: getError ( std :: strstream & strmError) 
{ 

♦this < < ' \ 0 ' ; 
strmError << str{); 
freeze (false) ; 
return; 

} 

/////////////////////////////////////// 

const char CLogMsgEven t : : bArgSep = ' \t*; 

CLogMsgEvent : : CLogMsgEvent { ) 
{ 

Init () ; 

} 

CLogMsgEvent: : CLogMsgEvent (LPCSTR pszMessage) 
: CLogMsg (pszMessage) 

{ 

Init ( ) ; 

} 

CLogMsgEvent :: CLogMsgEvent ( str ing & strMessage) 
: CLogMsg (strMessage) 

{ 

Init () ; 

) 

CLogMsgEvent : : CLogMsgEvent ( long lEventID, long ISeverity, LPCSTR pszMessage) 
: CLogMsg (pszMessage ) 

{ 

Init () ; 

m__lEventID = lEventID; 
m_lSeverity = lSeveritv; 

) 

CLogMsgEvent :: CLogMsgEvent ( long lEventID, long lSeverity, string & strMessage) 
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:CLogMsg (strMessage) 

{ 

Init {) ; 

m_lEventID = lEventID; 
m_lSeverity = ISeverity; 

} 

CLogMsgEvent : : CLogMsgEvent { long lEventID, long ISeverity, __com_error & e) 
{ 

USES_CONVERSION; 
Init () ; 

m_lEventID = lEventID; 
m_lSeverity = ISeverity; 

*this << "Ox" << std::hex << e. Error () << std::dec << bArgSep; 
BSTR bstrDesc = e . Description () ; 
if {bstrDesc != NULL) 

*this << W2T (bstrDesc) ; 

else 

*this << " 

} 

CLogMsgEvent : : CLogMsgEvent (long lEventID, long ISeverity, HRESULT hr) 
{ 

Init { ) ; 

m_lEventID = lEventID; 

m_lSeverity = ISeverity; 

*this << "Ox" << std::hex << hr; 

} 

CLogMsgEvent : : -CLogMsgEvent ( ) 
{ 

ReleaseBuf f ers ( ) ; 

} 

inline void CLogMsgEvent :: Init { ) 
{ 

m__lEventID = 0; 
m_lSeverity = -1; 
m_wAr gCount = 0 ; 
m_ppszArgs = NULL; 

} 

void CLogMsgEvent :: SetEvent ( long lEventID, lonq ISeverity, LPCSTR pszMessage} 
{ 

Clear ( ) ; 

m_lEventID = lEventID; 
m__lSeverity ~ ISeverity; 
if {pszMessage != NULL) 
+ chis << pszMessage; 

} 

long CLogMsgEvent :: Event ( ) 
{ 

return m_lEventID; 

} 

long CLogMsgEvent :: Severity ( ) 
{ 

if {m_lSeverity -1) 
{ 

if ((m_lEventID & OxCOOOOOOOL) == OxCOOOOOOOL) 

return EVENTLOG_ERROR_TYPE ; 
else if (m_lEventID & 0x80000000L) 

return EVENTLOG_WARNING_TYPE ; 
else if (m_lEventID & 0x4OO0000OL) 
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return EVENTLOG_IN FORMAT I ON_TYPE ; 

else 

return EVENTLOG_SUCCESS ; 

) 

else 

return m_lSe verity; 

} 

TCHAR ** CLogMsgEvent : rArguments (long * plArgCount) 
{ 

ReleaseBuf f ers ( ) ; 

// get temp buffer 
strstream strmTemp; 
*this << * \0'; 
strmTemp << str(); 
freeze (false) ; 

// make sure double nulled 
strmTemp << * \0' << '\0'; 

TCHAR * pszText = s t rmTemp . s t r { ) ; 
if (^pszText) 

m_wArgCount++ ; 

// make array of strings 

for (int i = 0; pszTex.t [ i] ; i + + ) 

{ 

if (pszTexttiJ == CLogMsgEvent :: bArgSep) 
{ 

pszTextli] = 0; 
m_wArgCount++ ,- 

} 

} 

// if data, allocate arg array 

if (rn_wArgCount ) 

{ 

int nLen = 0; 

m_ppszArgs - new TCHAR * [m_wAr gCount ] ; 
for (int i = 0; i < m_wAr gCount ; i++) 
{ 

nLen = _t cslen ( ps zText ) ; 
m_ppszArgs [ i ] = new TCHAR [nLen + 1] ; 
_tcscpy (injppszArgs [ i ] , pszText ) ; 
pszText += nLen + 1; 

} 

} 

strmTemp .freeze (raise); 



} 



// return buff ex 
+ plArgCount = m_wArgCount; 
return m_ppszArgs; 



TCHAR * CLogMsgEvent : :Text ( ) 
{ 

CLogMsg : : ReleaseBuf f ers { ) ; 

// format message into terapeorary strstream 

*this << ' \0 1 ; 

std :: strstream strmTemp; 

strmTemp << "Event: Ox" << std::hex << m_lEventID << ", Severity:" << std::dec << 
Severity () << ", Text:"; 



// if translation is turned on, then get message from message source 
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DWORD dwChar sReturned = 0 ; 

if (CLogNTEvents : :m__hMsgSrc != NULL) 

{ 

TCHAR pszBuf f [2048] ; 

dwCharsReturned = FormatMessage ( FORMAT_MESSAGE_FROM_HMODULE I 
FORMAT_MESSAGE_ARGUMENT_ARRAY , 

CLogNTEvents : :m_hMsgSrc, 
m_lEventID, 

MAKE LANG I D ( LANG__NEUTRAL , S UBLANG_DE FAULT ) , 

pszBuff, 

2048, 

m_ppszArgs ) ; 

if {dwCharsReturned) 
{ 

// chop off line feed 
pszBuff [--dwCharsReturned] = 0; 
// move data to formated message 
if (dwCharsReturned) 

strmTemp << pszBuff << * \0'; 

} 

} 

// if translation not turned on or translation didn't work then put ouc argument data 

if {! dwCharsReturned ) 

{ 

strmTemp << str () << ' \0'; 
freeze ( false ) ; 

} 

// move temp str stream into m_pszText and return pointer to m pszText 

int nLength = s trmTemp . pcount { ) ; 

m_pszText = new TCHAR [nLength + 1] ; 

_tcsncpy (m_pszText , s trmTemp . str {) , nLength); 

strmTemp .freeze (false) ; 

rn_pszText [nLength] = 0; 



return m pszText; 



} 



void CLogMsgEvent : : Re lease Buf f ers ( ) 
{ 

CLogMsg : : Re lease Buffers () ; 

if {m_ppszArgs != NULL) 
{ 

for (int i = 0; i < m__wAr gCount ; i + +) 

delete [] m_ppszAr gs [ i ] ; 
delete [] m_ppszArgs; 
m_ppszArgs ~ NULL; 
m_wArgCount = 0; 

} 



return; 



/ /////////////'////////////// /////////// 
/////////////////////////////////////// 
// Logs 

/////////////////////////////////////// 
/////////////////////////////////////// 

CLogBase : :CLogBase ( ) 
{ 

m_f Enabled ~ true; 
m_n Indent = 0; 

} 
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CLogBase : :CLogBase (LPCSTR ps zRe source Name ) 
{ 

m_f Enabled = true; 

m_strResourceName = pszResourceName; 
m_n Indent = 0; 

} 

void CLogBase :: Resour ceName (LPCSTR pszResourceName ) 
{ 

m_strResourceName = pszResourceName; 
return ; 

} 

void CLogBase :: Post (CLogMsg * pmsgLog) 
{ 

return ; 

} 

void CLogBase :: Open ( ) 
{ 

return; 

} 

void CLogBase :: Close ( ) 
{ 

re tu r n ; 

} 

/////////////////////////////////////////////////// 
H INSTANCE CLogNTEven t s : : m_hMsgSr c « NULL; 

CLogNTEvents : : CLogNTEven t s ( ) 
:CLogBase ( ) 

{ 
} 

CLogNTEvents : : CLogNTEvents (LPCSTR pszResourceName) 
:CLogBase (pszResourceName) 

{ 
} 

void CLogNTEvents :: Post (CLogMsg + pmsgLog) 
{ 

if ( !m__fEnabled) 
r e t u r n ; 

HANDLE hEventSource = Regi s ter Event Sour ce ( NULL, m_s trResour ceName . c_st r ( ) ) ; 

if (hEventSource != NULL) 

{ 

long lArgCount; 

TCHAR pszArgs = pmsgLog->Ar gument s ( &lArgCount ) ; 

ReportEvent (hEventSource , pmsgLog->Se ver i ty ( ) , 0, pmsgLog->Even t ( ) , NULL, 
lArgCount, 

0, (const TCHAR + + ) pszArgs, NULL); 
DeregisterEventSource (hEventSource) ; 

} 

} 

void CLogNTEvents :: EnableTr ansla tion (booi fEnable) 
{ 

if (fEnable) 
{ 

i f ( !m_hMsgSrc) 

m__hMsgSrc = LoadMessageSource ( ) ; 

) 

else 
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{ 

if (m_hMsgSrc) 
{ 

FreeLibrary (m_hMsgSrc ) ; 
m__hMsgSrc = NULL; 

} 

} 

return ; 

) 

HINSTANCE CLogNTEvents : : LoadMessageSource ( ) 
{ 

CRegistry regLocal ; 

// get the name of the resource 

if ( ! regLocal . Connect (CRegistry: : keyLocalMa chine ) ) 
return NULL; 

string strKey{ M SYSTEM\\CurrentControlSet\\Services\\EventLog\\Application\\" ) ; 
strKey += m_strResour ceName ; 
if ( ! regLocal . Open {strKey . c_str ( ) ) ) 
return NULL; 

string s t r DLL ; 

if ( ! regLocal .GetValue ( " Even tMes sage File " , strDLL) ) 
return NULL; 

// load the library 

return LoadLibrary { strDLL . c_str ( ) ) ; 

} 



/////////////////////////////////////////////////// 

CLogFile : : C Log File ( ) 
: CLogBase ( ) 



CLogFile: : CLogFile ( LPCSTR ps zResourceName ) 
:CLogBase (pszResour ceName ) 

m_streamIO. open (pszResourceName, ios_base : : out I ios_base: rtrunc) ; 



void CLogFile :: Open {LPCSTR pszFileName) 
Close ( ) ; 

rn_s t r ResourceName = pszFileName; 
Open ( ) ; 



oid CLogFile :: Open ( ) 

if { ! m_s treamlO . is_open { ) ) 

m_streamIO . open (m_strResour ceName . c_str ( ) , ios_base : : ou t I ios_ba se : : tr unc ) ; 



void CLogFile :: Close ( ) 

if (m_strearnIO.is_open() ) 

m_s t reamlO .close () ; 
return ; 



void CLogFile :: Post (CLogMsg + pmsgLog) 
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{ 

if ( !m_f Enabled) 
return ; 

Lock ( ) ; 

if (m_s t reamlO . is_open { ) ) 
{ 

string strTabs (m_nlndent, '\t'); 

m_streamIO << strTabs << pmsgLog->Text ( ) << * \n'; 
m_streamIO. flush ( ) ; 

} 

Unlock ( ) ; 
return; 

} 

///////////////////////////////////// 

CLogDebug: : CLogDebug ( ) 

{ 

} 

void CLogDebug Post {CLogMsg * pmsgLog) 
{ 

if ( !m_fEnabled) 

r e t u r n ; 
if (m_n Indent) 
{ 

string strTabs (m_nlndent, ' \t'); 
Output Debugs t ring (strTabs . c_str ( ) ) ; 

} 

OutputDebugStr ing (pmsgLog->Text ( ) ) ; 
Ou t put Debugs t ring ( "\n" ) ; 
return ; 

} 

//////' ////// ////////// //////// /////////////////////////////////////// 

CLogMulti : :CLogMulti ( ) 

{ 

) 

void CLogMulti : rAddLog (CLogBase * plog) 
{ 

Lock ( ) ; 

m_collLogs . push_back (plog ) ; 
Unlock (); 

} 

void CLogMulti :: RemoveLog (CLogBase * plog) 
{ 

Lock ( ) ; 

if {plog I- NULL) 

rn_collLogs . remove (plog) ; 

else 

m_collLogs .erase (m_collLogs . begin { ) , m__c oil Logs . end ( ) ) ; 
Unlock ( ) ; 
re turn ; 

) 

void CLogMulti :: Post (CLogMsg + pmsgLog) 
{ ' 

if ( !m_fEnabled) 

r e c u r n ; 

Lock ( ) ; 

list<CLogBase ^>::iterator itLogs; 
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for (itLogs = m_collLogs . begin () ; itLogs != m_collLogs . end ( ) ; itLogs++) 

pmsgLog->Post( + (* itLogs) ) ; 
Unlock ( ) ; 

return ; 

} 

void CLogMulti : : Open ( ) 
{ 

Lock () ; 

1 i s t<CLogBa se + >::iterator itLogs; 

for (itLogs = m_collLogs . begin () ; itLogs != m_collLogs . end { ) ; itLogs++) 

(MtLogs) ->Open () ; 
Unlock () ; 

} 

void CLogMul ti : r Close { ) 
{ 

Lock ( ) ; 

list <CLogBase + >: riterator itLogs; 

for (itLogs = m_collLogs . begin () ; itLogs !- m_collLogs . end { ) ; itLogs++) 

( ^itLogs ) ->Close ( ) ; 
Unlock { ) ; 

} 



string CTirneSt amp : : LocalTime ( ) 
{ 

SYSTEMTIME tm; 
GetLocalTime (&tm) ; 
char pBuf f [30] ; 

sprintf (pBuf f , " I 0 2d : % 02d : % 0 2 d . %d " , tm.wHour, tm.wMinute, tm.wSecond, tm. 
wMilliseconds) ; 
return str ing (pBuf f ) ; 

} 
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ififndef _Logging__h 
^define _Logging__h 

class CLogMsg; 

/ * / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
/////// //////////////W ///////////////////// /'//////////// 
log objects 

//////////////////////////////////////////////////////// 

H i n elude s t ring > 
ifinexude <list> 
H include <fstrean=> 
# include <strs tream> 
using name space std; 



//////////////////////////////////////////////////////// 
////////////////////////// //////////////////////////////-/ 

class CLogBase 
{ 

protected : 
bool 
string 

CComAutoCriticalSection 
int 

public : 

CLogBase ( ) ; 
CLogBase {LPCSTR ps zResour ceName ) ; 

void Enabled (bool f Enabled) {m_f Enabled = f Enabled; } 

bool Enabled {){ return m_f"Enabled ; } 

void Lock ( ) {m_syncCS . Lock { ) ; } 

vo id Un 1 o c k ( ) { m_s y ncCS . Un lock { ) ; } 

virtual void Post (CLogMsg * pmsgLog) = 0; 

virtual void ResourceName { LPCSTR ps zResour ceName ) ; 

void GetResourceName ( string & s tr ResourceName ){ str ResourceName = m_s trResourceName ; } 

virtual void Open ( ) ; 

v i r tua 1 void Clos e ( ) ; 

void Push Indent ( ) {m_nl nden t++ ; } 

void Poplndent ( ) { if (m_nlndent > 0) m_nlndent-- ; } 

} ; 

//////////////////////////////////////////////////////// 

class CLogNTEvents : public CLogBase 
{ 

friend class CLogMsgEven t ; 

protected : 

static H INSTANCE m__hMsgSrc; 

HINSTANCE LoadMe s sage Sour ce () ; 

public : 

CLogNTEvents ( ) ; 

CLogNTEvents (LPCSTR ps zResour ceName ) ; 
virtual void Post (CLogMsg * pmsgLog); 
void EnableTranslat ion ( bool fEnable); 

) ; 

//////////////////////////////////////////////////////// 



m_f Enabled ; 

m__s trResourceName ; 

m_syncCS ; 

m nlndent; 



class CLogFile : public CLogBase 
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{ 

protected: 

fstream m_streamIO; 

public : 

CLogFile ( ) ; 

CLogFile (LPCSTR ps zResour ceName ) ; 
void Open{LPCSTR ps zFileName ) ; 
virtual void Post {CLogMsg * pmsgLog); 

v i r t u a 1 vo i d Ope n ( ) ; 
virtual void C 1 os e ( ) ; 

} ; 

//////////////////////////////////////////////////////// 

class CLogDebug : public CLogBase 
{ 

public : 

CLogDebug { ) ; 

virtual void Post (CLogMsg * pmsgLog); 

}; 

//////////////,'///////////////////////////////////////// 

class CLogMulti : public CLogBase 
{ 

protected : 

list<CLogBase m_collLogs; 

public : 

CLogMulti { ) ; 

void AddLog (CLogBase 4 plog); 
void RemoveLog (CLogBase * plog); 
virtual void Post (CLogMsg * pmsgLog); 
v i r t u a 1 void Ope n ( ) ; 

v i r t u a 1 v o id C 1 o s e ( ) ; 

} ; 

//////////////////////////////////////////////////////// 
/////////////////////////////////////////// ///////////// 
// messaae ofciects 

;////// /////////;//////. '/////////////// ////// 
//////////////////////////////////////////////////////// 

class CLogMsg : public s td :: str stream 
{ 

pr o tec ted : 

TCHAR *■ m_pszText; 
v i r t u a 1 void Re 1 e a s e Bu f f e r s ( ) ; 

publ i c : 

CLogMsg { ) ; 

CLogMsg (LPCSTR pszMessage); 
CLogMsg { st ring & strMessage) ; 
virtual -CLogMsg () ; 

CLogMsg & Format (LPCSTR pszFormat, . ..); 
virtual void Post (CLogBase & log) ; 
virtual long Event (); 
v i r t ua 1 1 on g S e ve r i t y ( ) ; 

virtual TCHAR ++ Argument s ( long * plArgCount); 

virtual TCHAR + Text ( ) ; 

v i r t u a 1 void CI e a r ( ) ; 

void appendError (_com_er ror & e); 

void appendError (HRESULT hr); 

void appendError (CLogMsg & em) ; 

void appendError ( std :: strstr earn & strmError); 

void setError (_com error & e); 
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void setError (HRESULT hr); 
void setError (LPCSTR pszError); 
void setError (CLogMsg & em); 
void getError (string & strError); 
string getError (); 

void getError ( std :: strstream & strmError); 
void clear () {Clear (); } 



r / ////////////////////////// //: 



enum { SVRTY_DE FAULT 
SVRTY_SUCCESS 
SVRTY_ERROR 
SVRTY_WARNING 
SVRTY INFO 



-1, 

EVENTLOG_SUCCESS, 
EVENTLOG__ERROR_TYPE , 
EVENTLOG__WARNING_TYPE, 
EVENTLOG INFORMATION TYPE 



class CLogMsgEvent : public CLogMsg 



{ 

protected : 
long 
long 
short 
TCHAR 



m_lEventID; 
m_l Sever it y; 
m_wArgCount ; 
m_ppszArgs ; 



void Ini t { ) ; 

v i r t ua 1 vc-i d Re 1 ea s eBu f f e r s ( ) 

public : 

static const char bArgSep; 



public : 

CLogMsgEvent ( ) ; 

CLogMsgEvent (LPCSTR pszMessage) ; 
CLogMsgEvent ( string & strMessage); 
CLogMsgEvent ( long lEventID, long lSeverity 
CLogMsgEvent (long lEventID, 
CLogMsgEvent ( long lEventID, 
CLogMsgEvent ( long lEventID, 



= -1, LPCSTR pszMessage = NULL) 
string & strMessage) ; 
com error & e ) ; 



long lSeverity, 
long lSeverity, 
long lSeverity, HRESULT hr) ; 
-CLogMsgEvent ( ) ; 

void SetEvent (long lEventID, long lSeverity = -1, LPCSTR pszMessage - NULL) 
virtual long Event {); 
virtual long Severity*); 

virtual TCHAR ** Ar gumen t s ( 1 ong * plArgCount); 
virtual TCHAR * Text(); 



clas^ CTimeStamp 
{ 

pub I i c : 

static string Local Time ( ) ; 



Sendif 
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* include "stdafx.h" 
r; in elude "Registry . h" 



/ v This code v-as taked from the "Windows Foundation Class" project: 
which is authored by Samuel R, Blackburn (see the below original 
comments from Sam.) 

The source code used MFC as a basis but since the AH C source 
code avoids MFC , I have modified this code to use noting but 
standard C++ . Also, I've have removed functionality that did 
not make sense in the AHC case to lessen the amount of code 
present . 

Darin Greaham 
Miiibrook Corporation 
August 1997 

*/ 
/* 

* Author: Samuel R. Blackburn 
■ l * CIS: 76300, 326 

Internet: sblackbu5erols.com 

a- * 

** You can use it any way you like as long as you don 1 t try to sell it. 

r v 

Any attempt to sell WFC in source code form must have the permission 
of the or.lgi.nai author. You can produce commercial execu tables with 
** WFC but you can't sell WFC. 

v Copyright, 1997, Samuel H . Blackburn 

*' v SWorkfile: Registry. cpp S 
*•* ^Revision: I $ 

SModtime: 1/14/00 l:49p $ 



f * . V * .;. * .:. * .;. 4 .;. -V -i- J. + * 




Function name : 


^recursive! y_ d elet e _a 1 1 s ub_ keys • 


Description : 




Return type : 


static LONG 


Argument : 


HKEY keyjiandle 


Argument : 


LPCTSTR key_name 



/ 



static LONG _recur sively_delete_all_sub_keys ( HKEY kev_handle, LPCTSTR key_name ) 
{ 

HKEY child_key_handle = NULL; 

LONG return_value - 0; 

LPTSTR temporary_key_name = NULL; 

return_value = RegOpenKeyEx ( key_handle, key_name, NULL , KEY_ALL_ACCESS, & ✓ 

child_key_handle ) ; 
if ( return_value != ERROR_SUCCESS ) 
{ 

return ( return_value ); 

} 

tempor ary_key_name = new TCHAR [ MAX_PATH ]; 

if ( temporal y_key__name == NULL ) 

{ 

return ( ERROR_NOT_ENOUGH_MEMORY ); 

} 

return_value = RegEnumKey ( child_key_handle , 0, tempor ar y_key_name , MAX_PATH ); 
while ( return_value ERROR_SUCCESS ) 
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{ 

_recursively__dele te_all_sub_keys ( child_key_handle , temporary_key_name ) ; 

return_value = RegEnumKey ( child_key_handle , 0, temporary_key_name , MAX_PATH ); 
} " 

delete [] tempor ar y_key_name ; 
tempor ar y_key_name = NULL; 
RegCloseKey( child_key_handle ); 

return_value = RegDele teKey ( key_handle, key_name ); 
return ( return value ); 



/ *. V + ■* ■•■ \ 4 •> +• ■« T > V > *■ -r \ * * '> V *■ ■:• I ~ * + •* 4- > V 4 * ■> V 4- V i 4; 4. 4- -i. 4- -J V 4 \ i v * * v 4- ■>■ + \ 4- -> V A -4; Jr <■ ■> V V -1 * + * t -:■ 

Function nsnie: CRegis try CRegistry 
Description : 
Return type : 

4 ♦. -> «. 4. V 4- i 4- i * 4 4.- >■•• > *- > V 4 *• ■■■ .* ••• * -k +■>*•>■»;•>*■**• V + >■ * + > * i T * V * * * * * ■•»■ * 4. * 4. •>• * 4; > * 4- -v 4 V 4. ». 4. , 4 4. ■> / 

CRegistry: :CRegistry() 
{ 

m_Initiali ze { ) ; 

} 

/ 4- •* 4 **•*•*•«■ + *■ 4. <■ 4 v 4 v 4 V 4 ♦• * ■* *- * -v 4, * + V 4 + 4 V 4 -v 4- v 4 -*• * * + 4 * ■* +4 V 4 *»-+4 y r * t * * * *4 ^ ♦ i ■*■ 4 t 4.- ■* 4- 

Function name : CRecistry :: -CRegistry 
Description : 
Return, type ; 

<. 4 4- * -4. 4. •*• 4. -4 4- ■} 4 4- 4 -V 4 v 4 V 4 •*• * 4> •>• * 4- 4-4 \- y 4-4 r 4 •>• 4 ~ 4 * 4 4-4 -V 4 v 4 4- 4 •>• 4- •-• 4 > * 4 4 4 4r 4 + 4 * 4 > 4 1 f * 4 4. / 

CRegistry : : -CRegistry ( ) 
{ 

if ( m_RegistrvHandle != (HKEY) NULL ) 
{ 

Close { ) ; 

} 

m_Initiali ze ( ) ; 

} 

,' 4 i v 4 * -i * * 4 4 ■» - •> -v > r 4. 4 4 4 * 4 •* 4, * 4; -t 4.- ■> 4.- > + 4 v > v 4 ■+■ 4 * 4 -4 * -» 4. 4 4 4 * 4 v 4 4- 4- 4 4 -4 4- 4 4- ■* v ■>. 4. 4 * 4 4 4 4 4 44 * 4 . 4: 

Function mine: CRegistry : : m_T.niti.ali ze 
Description : 
Return type : void 
Argument : void 

* * * * * + * * * * 4 ' > *• * * >■ * '" * * * * * * + 4 - * + * * * * * ■'• * * * * * * * * * *• * * * * * - * * + * * *■ * *■ * - * * •» / 

void CRegistry : : m_Ini t iali ze ( void ) 

{ 

__ASSERTE ( this ) ; 

* v Make sure evervthing is zeroed out 
*/ 

m_Cla ssName .erased ; 
m_ComputerName ..erase {) ; 
m_KeyName .erase ( ) ; 
m__RegistryName .erase () ; 



m_KeyHandle - (HKEY) NULL; 

m_ErrorCode = 0L; 

m__NumberOf Subkeys = 0; 

m_LongestSubkeyNameLength = 0; 

m_Longes tClassNameLength = 0; 

m_Number Of Values - 0; 

m_Longes tValueNameLength = 0; 

m_LongestValueDataLength ~ 0; 

m_Secur i tyDescr iptorLength = 0; 

m LastWr iteTime . dwLowDa teTime = 0; 
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m_LastWriteTime . dwHighDa t eTime = 0; 
m_RegistryHandle = (HKEY) NULL; 

} 

/ v -r A : f * * * * » * i> * i * -i A- * V •> V -i- A ■ * ■« + •> 4r > * ■> * •> * f * •* v ? * *• ■* ^ ■» + ■» A i * * * V * * r ■ ^ ■* + * ■* V ■> + ■* * ■> * r * * • r * ■* * 

Function name: CRegis try :: Close 
Description : 
Return type : BOOL 
Argument : void 

* + * - ; - k •* + -'• + * -k ■<- * A- -i- * -V *■ + k - ; - •*• - : - + •»■ •*■ * * + * •!• *■ ■;■ * ■«• -V * * -i- 4 J- i *■ -J- * * ■»■ -v * -v ■» ■*• + ■* -t. ^ 4. i J- -i + 4- » •;■ •». -« -* ■;■ 4- * ■» / 

BOOL CRegistry : :Close ( void ) 
{ 

_ASSERTE ( this ) ; 

if { m_KeyHandle != (HKEY) NULL ) 
{ 

: :RegCloseKey { m_KeyHandle ); 
m_KeyHandle = (HKEY) NULL; 

} 

if ( m_RegistryHandle « {HKEY ) NULL ) 
{ 

return { TRUE ) ; 

} 

m_ErrorCode = : : RegCloseKey ( m_Regi str yHandle ); 

if ( m_ErrorCode == ERROR_SUCCESS ) 
{ 

m^RegistryHandle = (HKEY) NULL; 
m_Initialize{) ; 

ret urn ( TRUE ) ; 

} 

else 
I 

return ( FALSE ) ; 

} 



I -r v * A- ~ -V * * * A •> A- * A- * * -r \ r V * * *• * ^ ■ * 4 * 4. * 4 a- r v * A A- * * V ■» A * V * A A * £ -« i -A - * A; 4 «• '.- * y A - \ i *• * ■* * •> • 

Function name: CRegistry :: Connect 
Description : 



Return type 
Argument 
Ar gument 



BOOL 

HKEY key_to_open 
LPCTSTR name of computer 



T * -it -V r "A » -.V A- *. * -A A" * * A A- -r A- T * r A; * * * -A + * i- •> At V 7 i 7 A * * * jt** ■*■ A -A V •» * * * ■■■ -r •>• + * / 

BOOL CRegistry : rConnect ( const _Keys key_to_open, LPCTSTR name_of_compu t er ) 
{ 

_ASSERTE ( this ) ; 

// We were passed a pointer, do not trust in 

try 

{ 

/* 

name_of computer can be NULL 

V 

if { key_to_open keyClassesRoot I I key_to_open keyCur rentUser ) 
{ 

if ( name_of_computer == NULL ) 
{ 

m_Regis tryHandle = (HKEY) key__t o_open ; 
rn_ErrorCode = ERROR_SUCCESS ; 

} 

e 1 s e 
{ 
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/ * 

* * NT won't allow you to connect to these hives via RegConnectRegis try so we * 
'11 just skip that step 

* / 

mJrrorCode - ERROR_INVALI D_HANDLE ; 

} 

} 

else 
{ 

// Thanhs to Paul Osttowski [postrowskiezanteI.com] for rinding UNICODE bug here 
// RegCorsnectRegis try is not const correct 

m_ErrorCode - : : RegConnectRegistr y { (LPTSTR) name_of ^computer , (HKEY) key_to_open, 
&m_RegistryHandle ) ; 



if ( m__ErrorCode == ERROR_SUCCESS } 
{ 

if ( name_of_computer == NULL ) 
{ 

TCHAR computer_naine[ MAX_PATH ]; 
DWORD size - MAX_PATH; 

if ( : : GetComputerName { compu ter_name , &sise ) == FALSE ) 

m_ComputerName .erased ; 
else 

m_ComputerName = comput er_name ; 

} 

else 
{ 

m_ComputerName = name_of_compu ter ; 

} 

// 

// It would be nice to use a switch statement here but J get a "not integral" \£ 
error ! 

// 

if ( (HKEY) key_to_open == HKEY_LOCAL_MACHINE } 
{ 

m_RegistryName - TEXT ( " HKEY_LOCAL__MACHINE " ); 

} 

else if { (HKEY) key_to_open == HKEY__CLASSES_ROOT ) 
{ 

m_RegistryName = TEXT ( " HKEY__CL ASS ES_ ROOT " ); 

} 

else if { (HKEY) key_to_open = = HKEY_USERS ) 
{ 

m_RegistryName = TEXT ( "HKEY_USERS" ); 

> 

else if ( (HKEY) key_to_open — HKEY_CURRENT__USER ) 
{ 

m_RegistryName - TEXT ( " HKEY_CURRENT_USER" ); 

} 

else if ( (HKEY) key_to_open HKEY_PERFORMANCE_DATA ) 
{ 

m__RegistrvName = TEXT ( "HKEY_PERFORMANCE_DATA" ); 

} 

#if ( WINVER > = 0x400 } 

else if ( (HKEY) key_to_open « HKEY_CURRENT__CON FI G ) 
{ 

m_RegistryName - TEXT ( "HKEY_CURRENT_CONFIG" ); 

} 

else if ( (HKEY) key_to_open == HKEY_DYN_DATA ) 
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{ 

m__RegistryName « TEXT { "HKEY_DYN_DATA" ); 

} 

# end if 

else 
{ 

m_RegistryName = TEXT { "Unknown" ); 

) 

return { TRUE ) ; 

} 

else 
{ 

return { FALSE ) ; 

) 

} 

catch { ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

} 

} 



• 4 V T *. * r + ? A; -i * » + * ^ * V j- ^ 



r ^- + + V * * * V * r •*■ + * +• * * -V * *■ * -V * r ■*' + V * * t V * ■ 



Function name 
Description 
Return type 
Argument 
Argument 
Argument 
Argument 
Argument 
Argument 



CRegi stry : : Create 



BOOL 

LPCTSTR name_cf_subkey 

LPCTSTR name _ o f class' 

CreateOpt ions options 

Create Per miss ions permissions 

LPSECURI T Y_ATTR I BUT E S 3 ecur i t y_a 1 1: r i bu te s_p 

Great ionDisposi tion * disposition p 

BOOL CRegistry :: Create ( LPCTSTR name_of _subkey , 

LPCTSTR name_of_class, 
CreateOptions options, 
Cr eatePermissions permissions, 
LPSECURI TY__ATTRI BUTES secur i ty_at tribute s_p, 
CreationDisposition * disposition^ ) 



_ASSERTE ( this ) ; 

_AS SERTE ( name_of_subkey ! = NULL ); 

if ( name_of__subkey == NULL ) 
{ 

m_ErrorCode = ERROR_INVALI D__PARAMETER; 
return ( FALSE ) ; 

} 

// We were parsed a pointer, do not trust it 

try 

{ 

DWORD disposition = 0; 

if ( name_of_class == NULL ) 
{ 

name_of_class = TEXT { "" ); / / Paul Ostrowski fpos trcwskigzantel . com] 

} 



if ( m_KeyHandle !- (HKEY) NULL ) 
{ 

: : RegCloseKey { m_KeyHandle ); 
m_KeyHandle = (HKEY) NULL; 

} 

m__ErrorCode - : : RegCr eateKeyEx ( m_Regis t r yHandle , 
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name_of _subkey, 
(DWORD) 0, 

(LPTSTR) name_of_class, // Paul Ostrowski * 

[post rows kiGzant el . com j 

options , 
permissions , 
security_a ttr ibutes_p, 
&m_KeyHandle , 
^disposition ) ; 

( m_ErrorCode == ERROR_SUCCESS ) 

if ( disposition_p != NULL ) 
{ 

+ disposition_p = (Creat ionDisposition) disposition; 

) 

m_KeyName = name_of _subkey ; 

return ( TRUE ) ; 
} 

else 
{ 

return { FALSE ) ; 

} 

) 

catch ( ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE; 
retu rn ( FALSE ) ; 

} 

} 

Function name: CRegistry: : DeleteKey 
Descr ipt ion : 
Return type : ir-OOL 

Argument : L?CTSTR name of key to delete 

v ■■- * * i * * \ i * > v •• * * i * , ■* a -.. t -; a- •> **+-■**■**■* -i ■> * i a ■> + * * -> -v » + j * * * * .*■*.■ •> v > a- i / 

BOOL CRegistry :: DeleteKey ( LPCTSTR name_of _key_t o_delete ) 
{ 

_ASSERTE{ this ) ; 

_ASSERTE{ name_of_key_to_delete !« NULL ); 

it ( name_of_key_to_delete == NULL ) 
{ ~ ~ 

mJrrorCode - ERROR__INVALI D_PARAMETER; 

return { FALSE ) ; 

) 

// We were passed a pointer, do nor; trust it 

try 

{ 

/* 

You can't delete a key given a full path. What you have to do is bank up one 
level and then do a delete 



string f ull_key_name = name_of_key_to_delete ; 

if ( f ull_key_name . f ind ( TEXT ( 'W ) ) = = {-1) ) 
{ 

/> 

User had not given us a full path so assume the name of the key he passed us 
1 4 is a key off of the current key 
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m_Er rorCode - : :_recursively_delete_all_sub_keys ( m_KeyHandle, * 
name__of _key_to_delete ) ; 
} 

else 
{ 

int las t_back_slash_location = f ull_key_name . size { ) - 1; 

/ * 

* * We know this loop will succeed because a back slash was found in the above if * 
statement 

* / 

while ( f ull_key_name [ last_back_slash__loca t ion ] ! = TEXT ( 'W ) ) 
i 

last_back_slash_location-- ; 

) 

string cur rent ly_opened__key_name = m__KeyName; 

string par en t_key_name = f ull_key_name . subs tr ( 0, last_back__slash_loca tion ); 
int nCount = ( f ull_key_name . s i ze ( ) - last_back_slash_loca t ion ) - 1; 
string chi ld_key_name = f ull__key_name . substr ( f ull_key_name . size ( ) - nCount, 
nCount ) ; 



Now we open the parent key and "delete the child 



if { Open { parent_key_name . c_str { ) ) != FALSE ) 
{ 

m_ErrorCode = : : _recur sively_delete_all_sub_keys { m_KeyHandle, child_key_name . ✓ 
c_str{) ); 
} 

else 
{ 

m_KeyName = cur r en t ly_opened_key_name ; 
return ( FALSE ) ; 

} 

} 

if ( m_ErrorCode == ERROR_SUCCESS ) 
{ 

return { TRUE ) ; 

} 

else 
{ 

return { FALSE ) ; 

} 

} 

catch { . . . ) 
{ 

m_ErrorCode - ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

} 

) 

J -» -V 4 -;- ir <i •;- i -■ .i -»- * - -y + ■>■■ * > - : - .♦ •■- v i ••• k *■ •> +. -V v ~x . K ... * 4, + s- * 4. •> -1- * * y v * -V -r * -•■ -k + •» -k *■ y •*■ 4,- -i- i -V * * * .« •'• i - 

Function name: CRegistry: : Delete Value 
Description : 

Return type : BOOL 

Argument : LPCTSTP narne_c-f_value_to_c!elete 

BOOL CRegistr y : : DeleteValue { LPCTSTR name_of_value_to_dele te ) 
{ 

_ASSERTE ( this ) ; 
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■** name cf value to delete can be NULL 



// We were parsed a pointer, do nor. trust it 

try 

{ 

m_ErrorCode = : : RegDeleteValue ( m_KeyHandle / (LPTSTR) name_of _value__to_delete 

if { mJrrorCode == ERROR_SUCCESS ) 
{ 

return ( TRUE ) ; 

} 

else 
{ 

return ( FALSE ) ; 

} 

} 

catch { ... ) 
{ 

m__ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

} 



Function nam*: 
Descr ipt ion 
Return type 
Argument 
Argument 
Ar oilmen t 



■ e 4 -t- »■ -i- * •;• * * •'■ •> •<• •*- «*• •>- •♦• .» ■;• ■*■ •;• -i -; 

CRegistry: : Enumera teKtys 
BOOL 

const DWORD subKey inde:- 
strings- subkey_name 
strings class name 



• + -v ~ ■ 



i- * * *- » * -i- * -i 



■ * J * ■# V - 



r * * -V * h * / 



BOOL CRegistry : : Enumera teKeys ( const DWORD subkey_index , strings subkey_name, strings 
class__name ) 

{ 

_ASSERTE{ this ) ; 



TCHAR subkey_name_string[ 2048 ]; 
TCHAR class_name_stxing [ 2048 ]; 

DWORD si ze_of_subkey_name_s tring 
< subkey_name_string) ) ) - 1; 

DWORD size_of_class_name_s tring 
(class_name_string) ) ) - 1; 



(sizeof ( subkey_name_string) /sizeof 
(sizeof ( class_name_string) /sizeof (* 



: :ZeroMemory { subkey__name_s tring , 
: : ZeroMemory (■ class_name_s tring , 



sizeof ( subkey_name_string ) ); 
sizeof ( class_name_string ) ); 



m_ErrorCode = : : RegEnumKeyEx { m_KeyHandle , 

subkey_index , 
subkey_name_s tring , 
&size_of_subkey_name__string, 
NULL , 

clas s_name_s t r ing , 

& si ze_of_c las s_narne_s tring, 

&m LastWri teTime ) ; 



if ( mJrrorCode == ERROR_SUCCESS ) 
{ 

subkey_name = subkey_name_s tring ; 
class_name - clas s_name_s tring ; 
return ( TRUE ) ; 

} 

else 
< 

return ( FALSE ) ; 

} 
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} 



- •> v * *• ■> v -> v v- v * 



CRegistr y : : EnumerateValues 



/ ■> «. * •« * ■*■ * •* 4. ■* 4. ^ 4. ■> * .> V ■> V * 

Function name 
Description 
Return type 
Argument 
Argu men t 
hi gumen t 
Argument 
Argument 

-V «. . A f -i. # . .j. .1. -V .t- .j -.. -1 *; "!r •*■ -jf * ■» -I- * -t. ■> -»■ ■> 4- + ■> 4- * V V- V* •«• > * 

BOOL CRegistry : : EnumerateValues ( const DWORD value_index, 

strings narae_of _value , 
KeyValueTypes& type_code, 
LPBYTE data_buffer, 
DWORD& size_of_data_buf f er ) 

{ 

ASSERTE ( this ) ; 



BOOL 

const DWORD value_inde>: 
strings name_ot_value 
KeyValueTypess type__code 
LPRYTE data_buf fer 

DWORDS size of data buffer 



r -.V v* * * •» -.* + -i 



data buffer and si:e of data buffer can be NULL 



DWORD temp_type_code = type_code; 
TCHAR temp_name[ 204 8 ]; 

: : ZeroMemor y ( temp_name, sizeof ( temp_name ) ); 

DWORD temp_name_size = ( si zeof ( temp_name ) /s i zeof ( * ( temp_name ) ) ) ; 

// Ive were passed a pointer, do not trust it 

try 

{ 

m_ErrorCode - : : RegEnumVa lue { m^KeyHandle, 

value_index, 

temp_name , 
&temp__name_si2e , 

NULL, 
&temp_type_code, 

data_buf f er , 
&size_of_data_buf f er ); 

if ( m_ErrorCode ERROR_SUCCESS ) 
{ 

type_code = { KeyVa lueTypes ) temp_t ype_code ; 

name^of _va lue = temp_name; 

return ( TRUE ) ; 

} 

else 
{ 

return { FALSE ) ; 

} 

} 

ca tch { ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return { FALSE ) ; 

} 

} 



■ . V ... .;. , v .,. .; -s. j, + .y . v + .y , .» .;. - v . y .:. . 4 .- v A . * .* v .y ... v- .;- ... y + 4- •*■ * -V •> * 1 * i •>• •> -.- -t <t- - -i ^ .J. ■» ■:. ■* * ... ■> 

Function name: CRegi stry :; Flush 
Description : 

Return type : BOOL 

Argument : void 
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■* *■ * v * .*■ + * + ■* * ■> J - * V * *■ * v * .** * v * .« * * * * + * * ■* ■»■ ■> I- -t v + ■:■ * * •* + > -v- ■> -r *• i ■*■ * . * 

BOOL CRegistry :: Flush ( void ) 
{ 

_ASSERTE ( this ) ; 

m_ErrorCode = : : RegFlushKey { m_KeyHandle ); 
f ( m_ErrorCode — ERROR_SUCCESS ) 
return ( TRUE ) ; 
else 

return ( FALSE ) ; 



/ v r V + *' + ■*■ * * -1-4 * i -»• V *.• •> V -V *• * A" * \* * *■ 4- 4- -t V* T * * * *: *■>■•>+ > ■•■ ■> V •> V ■»■ *■ * *: ■•■ X *• •> 4- ■> • 



Function name 
Descr ipt ion 
Return type 
Arguinen t 
Argument 
Argument 

BOOL CRegistry: 



CRegistry: : Get Binary Value 
BOOL 

LPCTSTR name_of_value 
BYTE return_ array [ ] 
DWORDS num_bytes_read 

■ r ,. .i. ^. .;. .:. ± ... + ■>• -V + > v + * i + j. -t * ;H- ^ 4- v ■*■ 4, -t- v -v * ■;■ * -:. ? * jr J. ■> 4- * 4- -;■ 4> . * ♦ -:- ■» -:- ■>-.-/ 

GetBinaryValue ( LPCTSTR name_of_value, BYTE r eturn_ar ray [ ] , DWORD& 



num_bytes__read 
_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name__of _value == NULL ) 
{ 

m_ErrorCode - ERROR_INVAL I D_ PARAMETER; 
return ( FALSE ) ; 

} 

// Thanks go to Chris Mines {ChrisKines@msri.com) fox finding 
// a bug here. If you add entries to the key, then the 
// information retrieved via Query Info { ) may be invalid. This 
// will screw you here. So, we must make sure our in formation 
// is correct before we attempt to *use* the data, 

Querylnf o ( ) ; 

DWORD size _of _buf f er = m_Longes tValueDa taLeng th ; 

LPBYTE memory_buf f er = (LPBYTE) new BYTE [ si ze_of_buf f er ]; 

if ( memor y__buf f er == NULL ) 
{ 

m_ErrorCode = : : Ge tLastError ( ) ; 
return { FALSE ) ; 

) 

BOOL return_value = TRUE; 
KeyValueTypes type = typeBinary; 

if ( QueryValue( name_of_value, type, memor y_buf f er , si ze_of _buf f er ) != FALSE ) 
{ 

DWORD index = 0; 

while ( index < si ze_of _buf f er ) 
{ 

return_array [index] = memory_buffer [index] ; 
index++; 

} 



num bytes read = size of buffer; 
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return_value = TRUE; 

} 

else 
{ 

return_value = FALSE; 

} 

delete [) memory_buf f er ; 
return ( return_value ); 

} 

f-y-K* A- -y. A *• ■> -k +■ -r * -r ■♦■ * .+ ■■• A > -'• * ■:»■ y h ■*■ •■■ + -y -a * ■> * >■ ^- -.1- -v- ■> a ■« >.- -> -:. -t- -> * ■> *. -v + .y - : . -i y -l- ■> 

Function name: CRegistr y : : GetClassName 

Description : 

Return type : void 

Argument : strings class name 

void CRegistry :: GetClassName ( strings class_name ) const 
{ 

class name - m ClassName; 



/ * -v * * * * .* -V * -V > * * ■*■ -k -r + * -V r + * -•• * * * * * + *****■»*•* -v * -V » •'■ i -v • •«■ * •« ■* -v -k * 4. -V 4 * * •>; > * * - V T i . * ->• 

Function name: CRogistry : : GetComputerWame 
Description : 

Return type : void 

Argument : strings computer_naioe 

+ * -V r * T -V * * * * + * + * + * V 4 * * + * ■*■ * -t ■* * * * * * 4- Jr * * * *r - - •> * * + ? V 4 * j 4 * r * 4 \ ~ - *■ -f -V 4 ; 7- - - + ,' 

void CRegistry :: GetComputerName { strings compu ter_name ) const 
{ 

computer_name = m_ComputerName ; 

} 

+ <-4**+4*4+iijr + i.j.i.+ V4 + ^ v 4 4 •* r * 4 * **r*+-~*+*-«r ****~*-*-*y+-r ■»■ * ^ r r 

Function name: CRegistry : : Get Double Word Va I ue 
Description : 

Return type : BOOL 

Argument : LPCTSTR name_of value 

Argument : DWORDs return^ value 

+ * + * * -•• i ■■■ * -'• ir * + * v ?- * 4 » + 4 ■* i + * * * * ■> * * -v -v a * * <• -r -v 4 - i- . ■■■■ * .1 + « * » , * 4 + * -t. > * -i .fc - i- .* ; i. 4 -:. .» ... * ... .. / 

BOOL CRegistry :: Ge tDoubl eWordValue ( LPCTSTR name__of _va lue , DWORDS return value ) 
{ 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name_of_value == NULL ) 
{ 

m_ErrorCode = ERROR_INVALI D_PARAMETER; 
return ( FALSE ) ; 

} 

DWORD size_of_buf f er = siseof( DWORD ); 
KeyValueTypes type = typeDoubleWord ; 

return ( QueryValue ( name_of _value , tvpe, (LPBYTE) &return_value, si ze_of _buf f er ) ); 

} 

/ * * * -V + ***•**•*•** * + + + -v * -i- 4 ■>■ * * 4 •'• i * r ■» *•»***•* -v i -;• + -v * * * * - •> * -ir 4 * , + 4 -1- -j * i -1 i -i. 

Function name: CRegis try :: Ge tError Code 
Description : 
Return type : BOOL 
Argument : void 

Ar * V***-v+*. + 4 * * V 4 * r t y * 4 * * * * v * * * - -i - ^ -4 + * V 4 »■*■*■*■.*■** * * 4-4 * 4 + 4 * y V 4 *, f ■*■ 4 - r „« 

BOOL CRegistry : : Ge tEr rorCode ( void ) const 
{ 

_ASSERTE ( this ) ; 
return { m_ErrorCode ); 
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/ t ■* 4 - ■ ~ -\- 4 + i 4 4 4 v 4 + 4 -v 4 -v 4- s- 4 r * ^ * j. 4. -v ~ -i- * ~ ... * 4- j. -i- * *it4.*t^^M'»*i*»*i + **r++-*f*f + ».'Vi + J 1 ** + 

Function name: CRegis try :: GetKeyNante 

Description : 

Return type : void 

Argument : string* keyname 

+. 4 v * * v * * ■*■ -t 4 * * A- 4 v * * * 4 ■*■ r * 4 4 4 -» -V •> * 4 * * ■* * * * * ♦ * * * * 4 * 4 4 4 V 4 V 4 v 4 4 * * * 4 * 4 4 *■ * 4 V * v * *■ 4 4- 4 4- * ,' 

void CRegistry : : GetKeyName ( strings key_name ) const 
{ 

key_name = m_KeyName; 

} 

/ * * -V * ■*■ * -.V * 4- * 4 * 4 * * H if * * ,v r •>• * •>• * •> + 4 * * **■**■**■ *****■>■***»+*•** > 4- ■«■ r •.»■ *■*■*•# * 4 + * * * 4- * * * ■>■ * * * 

Function name: CRegis tr y : : GetNumberOf Subkeys 
Description : 
• Return type : DWORD 
Argument : void 

4 v 4 * v *■ 4 * J A* * A 4 « 4 i *■ 4 * 4 ■».- * A* ■» V * -V + ■*• -3- -i 4 4 + 4 -V 4 4 4 > V -i v -V -» > 4- -i *■ ■* A" 4 *- 4 4' 4 A" » V 4- -.*■ + •*• ■•■ 4 J 

DWORD CRegistry :: GetNumberOf Subkeys { void ) const 
{ 

return { m_NumberOf Subkeys ); 

} 

I ■!■ * » r * * * * ■* * ■> * * + * ■*■ *■»•+■■* * 4 * 4- * * * * a- 4 * r * * 4 * 4 + 4- v 4 «• 4 4 4 ■*■ 4 ■» ■ * 4 * -i 4 4 * 4 V» v -J- 4 * 4, -V 4 * 4 

function name: CRegi st r y : : Ge tNumberOfValues 
Description : 

Return type : DWORD 

Argument : void 

,, .;- -, .y s . ... - y -i. * ... j,. 4. ; j, 4 -y ■* .t. .* ... .j. -l. + + ^. * * v .s. > 4. > 4. + .> 4. y -a -V 4 * si V > >i - ■*■ i- y •■■ * * 4. y -.- / 

DWORD CRegistry :: GetNumberOf Values ( void ) const 
{ 

return ( m__N umber Of Values ); 

J 

■ v ■;• v ■;• «• + .v •;• > 4- •> 4- * + i *■ * v •> .*■ * « - •* •> + ■* •> v + v ■> + .* 4- ■* •<■ ■> + ■> 4, •> -t- ■» * > 4. -i *■ 4- * -i- * 4 4- ■> «. •>. 

Function name: CRegis try : : GetP.egistryName 
Description : 

Return type : void 

Argument : st rings, regis try_name 

f * * •*■ * 1- Jk * i + -» 4- -V 4, -v -f- -f- 4. •;■ * > -i 4- -V * -K- -V * i: * -V * -«■ 4. 4 * 4 * + * * 4 4- 4- i , 4- ,t 

void CRegistry :: GetRegis t ryName ( string^ regis try_name ) const 
{ 

registr y__name = m_Regi st ryName ; 

} 

-.. , , • * * a. * , . , . 4. , 4 „,.4, , , - 4 4 * 4 * . 4- , , , 4 -, 4 , 4 * 

Function name: CRegistr y : : Ge tStringValue 
Description : 

Return type : BOOL 

Argument : LPCTSTR name of value 

Argument : strings return_stri.no 

4 4. •> H -4- s 4. 4- 4; > 4; -i 4, ^-4 4. -i- v + 4- .V + .«• 4 4- 4 4 4 * -> 4.- -V v 4 4- *• 4- * 4- > 4- -i 4. >i 4- 4 4 4 V * - * 4 4- -:• 4 4- 4- 4 *■ 4 v * 4 »• 4 -i- v*- 4 i 4- , 

BOOL CRegistry : : GetStr ingValue ( LPCTSTR name_of_value, strings r eturn_s t ring ) 
{ 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name_of_value NULL ) 
{ 

m_ErrorCode = ERROR_INVALI D__PARAMETER; 
return { FALSE ) ; 

} 

TCHAR temp_string[ 2048 ]; 
DWORD size_of_buf f er = 2048; 

: : ZeroMemory { temp_string / sizeof( temp_string ) ) ; 



.. .; 4. -r V ■>■ i- 4- 4- .«■ 4- 4. 



... * * * , * 4 -v 4 •* / 
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KeyValueTypes type = typeString; 

if ( QueryValue{ name_of_value, type, { LPBYTE ) temp_string, size_of_buf f er ) != FALSE ) 
{ 

re turn_str ing = temp_string; 
return ( TRUE ) ; 

} 

else 
{ 

re turn_s t r ing .erased ; 
return { FALSE ) ; 

} 

} 

Function name: CRegi st r y : : Ge fcValue 
Description : 
Return type : BOOL 

Argument : LPCTSTR narne^ of_value 

Argument : return^ value 

* V •> * + V ? * * 1 * •? -v A V A V A V * A * * * A A A i > A * V > * •> * * * * V f A A ■» * ■> A 4 * i A * * * -V A «■ A * * A * •> * •> A- •> * * V * V * A f * A A / 

BOOL CRegistry : :GetValue ( LPCTSTR name_of _va lue , DWORD & return_value ) 

{ 

_ASSERTE ( this ) ; 

_ASSERTE ( name_of_value != NULL ) ; 

if ( name_of _value == NULL ) 
{ 

m_ErrorCode = E RROR_INVAL I D_ PARAMETER; 
return { FALSE ) ; 

} 

return { GetDoubl eWor dValue { name_of_value, re tur n__value } ); 

} 

/ .> 4 . .y v 4. i *■ * . i j. a i, ^ 4 v * * t . .;. 4 r .> J. ■> ,. .j * .; v 4 . .}, *- ^ *. i ^ ^ .> 4- ■> ^ > ^. •> v >*■ * t ^ ■> * v ■> v -i 

Function name: CRegi str y : : Ge tVa lue 
Description : 

Return type : BOOL 

Argument : LPCTSTR nam&_of_va lue 

Argument. : strings ret urn^str ing 

* * * * ■*■ * ■* *•*+ ^ v ■*■•*■ * +■ * * * A A *■*-** * A -i * •> v * * A v A A A A A A- A ■.• A > A * A A A A A- A A A A * A - A A A A ****** V * * * ■*• * *■ A A / 

BOOL CRegistry :: GetValue ( LPCTSTR name_of_value, strings returnj tring ) 
{ 

_ASSERTE( this ); 

_ASSERTE( name_of_value != NULL ); 

if ( name_of _value — NULL ) 
{ 

m_ErrorCode - ERROR_INVALI D_ PARAMETER; 
return ( FALSE ) ; 

} 

return ( Gets tr ingValue ( name_of_value, r eturn_str ing ) ); 

} 

/ A * A A' *■ A 7 \ *■ ■*■ A A A A v A +■ a \ i *. * A * A A A * * ^ A A v A A A A *■*■** A ■*■ * -j, * .» ^. * a- A A A A- * A' * A * A A v A A A A' A A A A A A ■;■ * A A 

Function name: CRegi st.r y : : Open 
Descripcicn : 

Return type : BOOL 

Argument : LPCTSTR name_o£_subkey_to_open 

Argument : const Create Permissions security access mask 

A * * * * A ■> AA* * - r * * At A * A- 4 * A * A A A' A A A A ****** A; A A * A ***** A * * * * A- * ■*- A A; A A A A * y * * A * A; * A * A * ■*■ A A / 

BOOL CRegistry :: Open { LPCTSTR name_of _subkey_t o_open , const Crea tePermissions 
secur i tv_acces s_ma s k ) 

{ 
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ASSERTE { this ) ; 



name of_subkey_to open can be NULL 

v / 

// We were passed a pointer, do not trust it 

try 

{ 

if ( m_KeyHandle != { HKEY ) NULL ) 
{ 

: : RegCloseKey { m_KeyHandle ); 
m_KeyHandle - (HKEY) NULL; 

} 

m_ErrorCode - : : RegOpenKeyEx { m_Registr yHandle , name_of_subkey_to_open , NULL, 
security_access_mask, &m_KeyHandle ) ; 

if ( m_ErrorCode ERROR__SUCCESS ) 
{ 

Query Info { ) ; 

m_KeyName = name_of _subkey_to_open ; 
return ( TRUE ) ; 

} 

else 
{ 

return ( FALSE ) ; 

) 

) 

catch { ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return ( FALSE ) ; 

) 

} 

I -V ■* ir ■•■ •* ■■' x - 1 ' r * ■* * ♦■":**!» •>■ * -V T -k -*r t •* * ■•■ ■*■ ■}■ it -~ ■*■ •* •■ - -y -v •* *• «■ * -r «• f * -lr •« -V ? •*■ * ■» -:- y -« + •;• * + 

Function name: CRegis try : : Querylnf o 
Description : 
Return type : BOOL 
Argument : void 

* V * ■«■ -r * * * -v ■.• + * if -r * * V * -V * A- r * -r A- A- ■* * + * * V 7 A' -r r 4 A- y -A- * r .+ A- y A' •» A- y A' 4 •+■ if A- r ■* -5- .*• i. •* i •» * A- y A- * A 4 •«• y •* -»• \v A- •*• ./ 

BOOL CRegistry : rQuerylnfo { void ) 
{ 

_ASSERTE ( this ) ; 

TCHAR class_name[ 2048 ]; 

: : ZeroMemory ( class_name, sizeof( class_name ) ); 

DWORD size_of_class_name = (sizeof (class_name) /sizeof { * {class_name) ) ) - 1; 

m_ErrorCode = : : RegQuerylnf oKey ( m_KeyHandle / 

class_name , 
&si ze_of_class_narrie , 
(LPDWORD) NULL , 
&m_NumberOf Subkeys , 
&m_Longes tSubkeyName Length, 
&m_LongestClassNameLength, 
&m_Number Of Values , 
&m_LongestValueNameLength , 
&m_LongestValueDataLength, 
& m_Se cur i tyDescr iptor Length , 
&m_LastWr i teTime ) ; 

if ( m_ErrorCode ERROR_SUCCESS ) 
{ 

m_ClassName = class_name; 
return ( TRUE ) ; 
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else 
{ 

return ( FALSE 

} 



■=■ *■ * * *• •*■ * ■* * * + * *■ -s- * -i- r - ; - * •«• » ■•• -y * ■*. .> * * 4- .j. * * * * -k .i. * .i. *■ * + ... .4. h. * * * -v * -; : * -= 



Function nan 
Descr ipt ion 
Return type 
Argument 
Ax gumen L 
Argument 
Argument 



CRegistry: :QueryValue 



BOOL 

LPCTSTK name of _ value 

KeyValueTypess va.lue_jtype 

LPS YTE add Less of_buffer 

DWORD5 size_of_buf fer 

., .j. v . y + ~ - x - v + •* <• •> * * \- v v * * * » 4- ■* * : ■* v* + * * * V * * * * * 4- ■* *: 4 «■ •> 4 • -f v -r V * v * A' 4: ■*• *: -k *: -k \ •> * * .V 4 

BOOL CRegistry : :QueryValue ( LPCTSTR name_of_value, 

KeyValueTypess value_type, 
LPBYTE address_of_buf f er, 

DWORD& size_of_buf fer ) 



i 



_ASSERTE ( this ); 

_ASSERTE( name_of_value != NULL ); 

/* 

address_of_buf fer and size_of_buf f er can be NULL 

*"/ 

if ( narne_of_value == NULL ) 
{ 

m_ErrorCode - ERROR_I NVAL I D_ PARAMETER; 
return { FALSE ) ; 

} 

// We we r * passed a pointer, do not trust it. 

try 
{ 

DWORD temp_da ta_type = (DWORD) value_type; 

m_ErrorCode = : : RegQueryValueEx { m_KeyHandle, 

{ LPTSTR) name_of^value, 
NULL, 
&temp_da ta_type, 

address^of _buf f er , 
&si ze_of_buf f er ) ; 

if ( mJrrorCode == ERROR_SUCCESS } 
{ 

value_type = (KeyValueTypes) temp_da ta_type ; 
return ( TRUE ) ; 

} 

else 
{ 

return { FALSE ) ; 

} 

} 

catch ( ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE ; 
return { FALSE ) ; 

} 



j + $ 4- + - v 1c +■ * ? ir 4 k 4- V •» + v ? J 4- * * ■* * ? V - V 4 V? + Mf 4j y V 4 + t V + i i jt * 1> .4 7 * -> +■ 4- V y ■*■ * *■*■*■* * •+ 

Function name: CRegistry :: Se tBinar yValue 



C:\Documents and Setti ngs\billyhe\My . . . \LCServices\LCKioskServer \Reg istry . cpp 16 



Descr ipt icn 
Return type 
Argument 
A.r gument 
Argumen t 



BOOL 

LFCTSTR name_of _value 
const BYTE by tes_to_wri te [ ] 
DWORD num_bytes to_write 



+ + ••■ -i * -k * * ■* r + *** + *** + *•«.■-*■*+. * * -4 * * -t * * ****** * ««• a ■'■ * * * *■ + * + * * * ■•■ * •;- * ■'■ * / 

BOOL CRegistry : : SetBinaryValue ( LPCTSTR name^of^value, const BYTE bytes_to_wr i te [ ] , DWORD * 
num_bvtes_to_wr ite ) 

{ 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ) ; 

if ( name_of_value == NULL ) 
{ 

m_ErrorCode « ERROR_INVALID_PARAMETER; 
return ( FALSE ) ; 



BOOL return^value = SetValue ( name_of_value, typeBinary, ( LPBYTE ) bytes_to_wr ite , 

num_bytes_to_wri te ) ; 
return-! return_value ) ; 



J •> * + * ■* * ■* + r* i : ■> <e ■? *c •* \ r * r V * ~ * * * * * * * -V * -V * v * * -V i- ■* * -* * •* * * + vr V ■*■ * * * * ■*■ * S * ■.* ■* * - ■* 

Function name: CPegistry : : SetDoubleWordValue 
Description : 

Return type : BOOL 

Argument : LPCTSTR name_of _va lue 

Argument : DWORD value to write 

■t * t V * ••■ ■*• *'.»•** * * i- •> * •>■ ****** * * v *••>--*•->+-> * * * * * * + t ■*■ * * i •> + -> * * + * v r ■»■ *■ •» * »■ / 

BOOL CRegistry :: Set DoubleWordValue ( LPCTSTR name_of_value, DWORD value_to_wr i te ) 
{ 

_ASSERTE { this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name_of _value == NULL ) 
{ 

mJrrorCode - ERROR__INVALI D_PARAMETER; 
return ( FALSE ) ; 

} 

return { SetValue ( name_of_value, typeDoubleWord , {const PBYTE) & value_to_wz ite , sizeof 
DWORD ) ) ) ; 

} 



I **■**-.«•*•« r •> * * * * V * * * V i v * ,v * .*■ * •*• **•*•» *■**■> + * * * * * -»■ ? ■*■ r ■> r •> -> 

Function name: CRegistry :: SetSt ringVa I ue 
Description : 

Return type : BOOL 

Argument : LPCTSTR i-iame_of_va lue 

Argument : const strings string value 

BOOL CRegistry :: SetStringValue ( LPCTSTR name_of _value , const strings s tr ing__va lue ) 
{ 

_ASSERTE ( this ) ; 

_ASSERTE( name__of_value != NULL ); 

if { name_of_value == NULL ) 
{ 

m_ErrorCode = ERROR_I NVAL I D_ PARAMETER; 
return ( FALSE ) ; 

} 

return { SetValue { name_of_value, typeString, (const PBYTE) s tr ing_va lue . c_s tr { ) , * 
str ing_value . size { ) + 1 ) ); 

} 
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/ * * * + V f -V y + » ^ y + f -If » -V j » y * y t- it ■»■ "Jr -,- + - » * * * *U **. J- * - * * y -t- * ■'• * - 

Function name: CRegis try :: SetValue 
Description : 

Return type : BOOL 

Arg urae n t : LFCTST R n a nie__ of ja 1 u e 

Argument: : DWORD value 

+ ■> * * •■• * * ■* + •> - * * + * + * * * * + * ■'■ •*• * + *■ * ^ * *■ t- y * * * * - : - + •'• * - ! - *•»+■» •••• r + + + t - : - * * * - ! - * ?■ * y * r + y + r + r ••• * * + * / 

BOOL CRegistry : : SetValue { LPCTSTR name_of __va lue , DWORD value ) 
{ 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name_of _value == NULL ) 
{ 

m_ErrorCode = ERROR_INVALI D_ PARAMETER; 
return ( FALSE ) ; 

} 

return { Se t DoubleWordValue ( name_of _va lue , value ) ); 

} 

/*■*■*■** * k * * * * *■*■■* y ■* * -.V * -t- -k * * -h * * * * + + V y * - y > * ■»■ > * -k * -«r y •'■ •> *■ ,; y 4 j y ± y y * 3, + 

Function name: CRegistry :: SetValue 
Description : 
Return type : BOOL 

Argument : LPCTSTR name_ of value 

Argument : const strings s t r i ng_t o_wr j. t e 

* " " * * * * * * k •" * - * * * * * * * * * * * * * > * - * * * " - * - " - : - * * 4 " : - * ' : ' ' * * * + * " > * - ; - * - 8> •* * / 

BOOL CRegistrv :: SetValue { LPCTSTR name_of __va lue , const strings s tr ing_to_wr ite ) 
{ 

_ASSERTE ( this ) ; 

_ASSERTE( name_of_value != NULL ); 

if ( name_of_value == NULL ) 
{ 

mJrrorCode = E RRO R_I N VAL I D_ PARAMETER; 
return { FALSE ) ; 

} 



return { Se tStr ingValue ( name_of_value, string_to_wr ite ) ); 

} 

; .;- y. .;. . k ... . k c -i- -it 4- -y y -i + 4. .v -y •;• y •:. y. -:■ .1. •> .y + *. •> 4- * * *• ••- y •* ■" > i * i -1 y -V y ■:■ * 4. y ■*■ > 4- •> y * •. 4- y .j. t •:. y 

Function name: CRegistry :: SetValue 

Description : 

Return type : BOOL 

Argument : LPCTSTR name of value 

Argument: : const KeyVa lueTypes t ype__of _va lue teasel. 

Argument : const PBYTE address or value data 

Argument : const DWORD si2e_of_dt3t.fi 

y V * -V + > -r -k- + ; + 4 4. ■> y i *■ * V * y -J- ■»■ -V > ■* 4- •> x -t 4- ■> <- ^ y 4- « •}• -i ~ • + ;-!••>■». -r <• •> v 4 y * y 4- > y •> 4- •> y 4 *- •> y 4 4. ., 

BOOL CRegistry: :SetValue ( LPCTSTR name_of_value , 

const KeyValueTypes t ype_of_value_to_set , 
const. PBYTE addres s_of_va lue_da ta , 

const DWORD size of data ) 



{ 



_ASSERTE { this ) ; 

_ASSERTE{ name_of_value != NULL }; 

_ASSERTE( address_of_value_data != NULL ); 

if ( name_of_value == NULL I I addres s_of_va lue_da ta == NULL } 
{ 

m_ErrorCode = ERROR_INVALI D_PARAMETER; 
return ( FALSE ) ; 

} 
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// We were passed a pointer , do not trust it: 

try 
{ 

m_ErrorCode = : : RegSe tValueEx { m_KeyHandle, 

name_of_value, 
0, 

type_of_value_to_set , 
address__of_value_data, 
size_of_data ) ; 

if ( m__ErrorCode == ERROR_SUCCESS ) 
{ 

return ( TRUE ) ; 

} 

else 
{ 

return ( FALSE ) ; 

} 

} 

catch ( ... ) 
{ 

m_ErrorCode = ERROR_EXCEPTION_IN_SERVICE; 
return ( FALSE ) ; 
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Unclude "stdafx.h" 
^include "registryBase . h" 

//////////////////////////////////// 
// CRegistryBase 

CRegistryBase : : C Reg is try Base ( ) 

{ 

} 

bool CRegistryBase :: connect (CRegistry : :_Keys eKey, LPCSTR pszComputer) 
{ 

if <m_oRegistry . Connect (eKey ) == REG__FAILURE) 
{ 

string strRegName; 

m_oRegistry . GetRegistr yName (strRegName ) ; 

m_strLas tErr or = "Unable to connect to f " ; 
m_strLastError +- strRegName; 
m_strLastError += "]"; 
if (pszComputer != NULL) 
{ 

m_strLastError += " on computer ["; 
m_strLas tError += pszComputer; 
m_strLastError += " ] " ; 

} 

return false; 

) 

r eturn t r u e ; 

} 

bool CRegistryBase :: getValue (LPCSTR ps zValueName , string & strValue) 
{ 

if (m_oRegistry .GetValue (pszValueName, strValue) == REG_FAILURE) 
{ 

m_strLastErr or = "Unable to retrieve value ["; 
m_strLastErr or += pszValueName; 
m_strLast£rr or += "]"; 
return false; 

} 

return true; 

} 

bool CRegistryBase :: getValue (LPCSTR pszValueName, unsigned ionq & lvalue) 
{ 

if (m_oRegistry .GetValue (pszValueName, lvalue) == REG_FAILURE) 
{ 

m_strLastErr or = "Unable to retrieve value ["; 
m_s tr Las tEr r or += pszValueName; 
m_strLastEr ror +- " ] " ; 

return false; 

) 

return true; 

} 

bool CRegistryBase :: ge tBinar yValue (LPCSTR pszValueName, LPBYTE pBuff, DWORD * pdwBuffSize) 
{ 

CRegistry :: KeyVa lueTypes eValueTypes = CRegistry :: typeBinary; 
if (m_oRegistry . QueryValue (pszValueName, eValueTypes, pBuff, 
*pdwBuf fSize) == REG_FAILURE) 

{ 

m_strLas tEr r or = "Unable to retrieve value ["; 
m_strLas tError += pszValueName; 
m_strLas tEr r or += "}"; 
return false; 

} 

return true; 
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} 

int. CRegi st r yBa se :: enumKeys ( vector <string> & aryKeys) 
{ 

DWORD dwldx - 0; 
string strKeyName; 
string s trClassName ; 

while (m_oRegis try . Enurnera teKeys (dwldx++, strKeyName, strClassName ) ) 

aryKeys . push_back (strKeyName ) ; 
return aryKeys . size {) ; 

} 

bool CRegis tryBase : : setValue (LPCSTR ps zValueName , LPCSTR pszValue) 
{ 

if (m_oRegistry . SetValue (pszValueName, CRegistry : : typeStr ing, (PBYTE) pszValue, 
strlen (pszValue) + 1) == REG_FAILURE) 

{ 

m_s trLastError = "Unable to write value ["; 
m_s trLastError += pszValueName; 
m_s trLastError += " ] " ; 

r eturn false ; 

} 

return true; 

} 

bool CRegistryBase: : setValue (LPCSTR ps zValueName , unsigned long lvalue) 
{ 

if (m_oRegistry . SetValue (pszValueName, CRegistry :: typeDoubleWord, (PBYTE) &lValue, 
Sizeof (lvalue) ) == REG_FAI LURE ) 

{ 

m_s trLastError = "Unable to write value [ " ; 
m_strLastError += pszValueName; 
m_s trLastError += "]"; 
r eturn false; 

} 

return true; 

} 

bool CRegistryBase :: openKey (LPCSTR pszKeyPath) 
{ 

if (m_oRegistry .Open (pszKeyPath, CRegistr v : : permissionAl lAccess ) == REG_FAILURE) 
{ 

m_strLastError = "Unable to open key ["; 
m_s trLastError += pszKeyPath; 
m_strLastEr ror +- "]"; 
return false; 

} 

return true; 

} 

bool CRegistryBase :: createKey (LPCSTR pszKeyPath) 
{ 

CRegistry: : Crea t ionDisposi t ion e Di sposi tion ; 

if (m_oRegistry . Create ( pszKeyPath, 

NULL," 

CRegistry : : opt ionsNonVola ti le , 
CRegistry: : permissionAllAccess , 
NULL, 

&eDisposit ion ) REG_FAILURE) 

{ 

m_strLastEr ror = "Unable to create key ("; 
m_st rLas tError += pszKeyPath; 
m_strLastEr ror += "]"; 
return false; 



C:\Docum ents a nd Settings\billyhe\My . . . \LCServices\LCKioskServer XregistryBase . cpp 3 

} 

retur n t rue; 

} 
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ftifndef _regist ryBase__h 
#define _registryBase_h 

#include " registry. h ,r 

class CRegistr yBase 
{ 

pr c tec ted : 

CRegistry m_oRegi s try ; 

enuni { REG_FAILURE - 0, REG_SUCCESS = 1 } ; 

CRegistryBase ( ) ; 

bool connect (CRegistry :: _Keys eKey, LPCSTR pszComputer = NULL); 
bool getValue (LPCSTR ps zValueName , string & strValue); 
bool getValue (LPCSTR ps zValueName , unsigned long & lvalue); 

bool getBinaryValue (LPCSTR ps zValueName , LPBYTE pBuff, DWORD * pdwBuf f Si ze ) ; 

bool setValue (LPCSTR ps zValueName , LPCSTR pszValue); 

bool setValue (LPCSTR ps zValueName , unsigned long lvalue); 

bool openKey (LPCSTR pszKeyPath); 

bool create Key (LPCSTR pszKeyPath); 

int enumKeys ( vect or<s t r ing> & aryKeys); 

bool close () { return (m_oRegis try . Close ( ) TRUE); } 

publ i c : 

string m_strLastEr ror ; 

} ; 



fiend if 
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// { f HO DEPENDENCIES) } 

// Microsoft Visual C++ generated include file. 
// used by LCKioskSejever'.rc 
/ / 

fldefine I DS_SERVICENAME 100 
^define IDR LCKios kServer 100 



// Next default values for new objects 

flifdef APSTUDIO_INVOKED 

If if ride f APSTUDIOJREADONLYJSYMBOLS 

#define _APS_NEXT_RESOURCE_VALUE 201 

^define _APS_NEXT_COMMAN DEVALUE 32768 

fldefine _APS__NEXT_CONTROL_VALUE 201 

^define _APS_NEXT_SYMED_VALUE 101 

Hendi f 

if end! f 
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// stdafx.cpp : source file that includes just the standard includes 
// stdafx.pch will be the p re-compiled header 

// stdafx.obj will contain the pie- compiled type information 

#include "stdafx.h" 

#ifdef __ATL_STATIC_REGI STRY 
# include <statreg.h> 
#include <stat reg . cpp> 
# e n d i f 



# include <atlimpl . cpp> 
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// stdafx.h : include file for standard system include files, 

// or project, specific include i He. a that are used frequently, 

// but are changed infrequently 

#if ! defined ( AFX_STDAFX_H BF8 235 66_E 9 3B_1 1 D3_B8 8 C_CC7 92E00000 0 INCLUDEDJ 

#def ine AFX_STDAFX__H BF8 2 35 6 6_E 93 B_l 1 D3_B8 8C_CC7 92EOO0OOO INCLUDED_ 

#if _MSC_VER > 1000 
^pragma once 

#endif // _MSC_VER > 1000 

#define _WIN32_DCOM 
#define STRICT 



#include "afxdisp.h" // MFC support. * 

#include "afxinet.h" //' MFC internet classes 

#iiiclude "afxmt.h" // MFC thread synchronization 

#ifndef _WIN32_WINNT 
#define _WIN32_WINNT 0x0400 
# end if 



//# define _ATL_APARTMENT_THREADED 
^include <atlbase.h> 

//Vou may derive a class from CComModule and use it if you want to override 
//something, but do not change the name of Module 

class CServiceModule : public CComModule 
{ 

public : 

HRESULT Regis ter Server (BOOL bRegTypeLib, BOOL bService); 
HRESULT UnregisterServer ( ) ; 

void Init (_ATL_OBJMAP_ENTRY* p, H INSTANCE h, HINT nSer viceName I D , const GUID* plibid = *r 

NULL) ; 
void Start ( ) ; 

void ServiceMain { DWORD dwArgc, LPTSTR* IpszArgv); 

void Handler ( DWORD dwOpcode); 

void Run { ) ; 

BOOL Islnstalled () ; 

BOOL Install {) ; 

BOOL Uninstall () ; 

LONG Unlock { ) ; 

void LogEvent (LPCTSTR pszFormat, ...); 
void Set ServiceStatus (DWORD dwState); 
void SetupAsLocalServer ( ) ; 



/ / Impl ementa t ion 
private : 

static void WINAPI ^ServiceMain ( DWORD dwArgc, LPTSTR* IpszArgv); 
static void WINAPI _Handler { DWORD dwOpcode); 

/ / d a t a mem b e r s 
public : 

TCHAR m_szServiceName [256] ; 
SERVICE_STATUS_HANDLE m_hSer vi ceS t a tu s ; 
SERVICE_STATUS m_status; 
DWORD dwThreadID; 
BOOL m_bService; 

} ; 



extern CServiceModule _Module; 
^include <atlcom.h> 
#include <comdef.h> 
^include <atlwin.h> 



////////// 
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// CRT 

#include <assert.h> 

^include <ctype.h> 

#include <direct.h> 



////////////////////. 
// STL 

#i.nclude <locale> 
#include <vector> 
#include <map> 
#include <strstream> 
# include <fstream> 
# include <list> 
#include <string> 
#include <sstream> 
#include <algorithm> 
using namespace std; 
#define TOUPPER(str) 
#define TOLOWER ( s tr ) 



r /////// ////// 



ctype<s tring : rvalue^ 
ctype<string : rvalue 



type> ( ) . toupper ( str . begin { ) , str . end { ) ) 
type> ( ) . to lower (str.begin() , str. end {) ) 



///////////////////////////////////////// 
// SLMD 

# include "LCEvMsgSrc .h" 

#include "Logging. h" 

extern CLogNTEvents __logEvent s ; 

extern CLogFile _logFile; 

extern CLogDebug _logDebug; 

extern CLogMulti _logAll; 



class CKioskServer App; 
extern CKios kServer App 

#define WMUSER START 



_theApp; 
(WM USER + 1000) 



V{{A 



INSERT LOCATION ) } 



p rpviou.? 



. \ n e . 



. iv t j on.: 
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Hinclude "stdafx.h" 

^.include " threadMain . h" 

# include "filename Delimited . h" 

# include " threadRecei ver . h" 

^include "threadProcessor .h" 

CKioskServer App : : CKioskServerApp ( ) 
{ 

m_pthr eadRecei ver - NULL; 
m_pthr eadProcessor = NULL; 

} 

BOOL CKioskServerApp ::lnitlnstance{) 
{ 

m_pthr eadProcessor - new CThreadProcessor < ) ; 
if ( !m_pthreadProcessor->CreateThread ( ) ) 
{ 

CLogMsgEvent msg { LCEVJ5ENERIC , SVRTY_ERROR) ; 

msg << "Unable to create processor thread in CKioskServerApp :: Init Instance ()" ; 
msg . Post (_logAll ) ; 
return FALSE; 

} 

m_pthr eadReceiver = new CThreadRecei ver ( ) ; 
if ( !m_pthreadReceiver->CreateThread { ) ) 
{ 

CLogMsgEvent msg ( LCEV_GENERIC , SVRTY_ERROR) ; 

msg << "Unable to create receiver thread in CKioskServerApp :: Init Instance ( ) " ; 
msg . Post (__logAll ) ; 
return FALSE; 

} 

while ( ! m_pthreadProcessor->PostThreadMessage (WMUSER_START, OL, OL) ) 
SleepUOO); 

whi le ( ! m_pthr eadRecei ver ->Pos tThreadMes sage ( WMUSER_START, OL, OL) ) 
Sleep (100) ; 

return TRUE; 

} 

int CKioskServerApp : : Exi tin stance ( ) 
{ 

if (m_pthr eadReceiver != NULL) 

m_pthreadReceiver ~>PostThreadMessage ( WM_QUIT, OL, OL) ; 

if (m_pthreadProcessor != NULL) 

m_pthreadProcessor->PostThreadMessage (WM_QUIT, OL, OL) ; 

return 0 ; 

} 

int CKioskServerApp Run { ) 
{ 

return CWinThr ead : : Run ( ) ; 

) 
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ftifndef _mainApp_h 
# define _mainApp__h 

class CKioskServerApp : public CWinApp 
i 

p r o t e c t e d : 

CWinThread * m_pthreadReceiver ; 

CWinThread * m__pthr eadPr oces sor ; 

public : 

CKios kSer verApp ( ) ; 
virtual BOOL Init Instance {) ; 
virtual int Exi t Ins tance ( ) ; 
virtual int Run ( ) ; 

}/ 



ffendif 
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// thread Processor . cfcp : implementation file; 
// 

^include "stdafx.h" 
jfinclude "lckioskserver . h" 
It include "threadProcessor.h" 

tfirdef _DEBUG 
#define new DEBUG_NEW 
Sunder THI S_FILE 

static char THIS_FILE[] - FILE ; 

Mend if 

//////////////////////////////// ///////////////////////////////////////////// 
// CThreadProcessor 

IMPLEMENT_DYNCR£ATE (CThreadProcessor, CThr eadSer ver ) 

CThreadProcessor : : CThr eadProcessor ( ) 
{ 

useTimer s (m_pnTimers , TIMER__MAX) ; 

) 

CThreadProcessor ::~CThreadProcess or () 

{ 

} 

BOOL CThreadProcessor : : I nit In stance {) 
i 

/'/ TODO: perform and per- thread initialisation here 
return TRUE; 

} 

int CThreadProcessor : : Exi t Ins tance ( ) 
{ 

// I0!>0: perform any pet -thread cleanup here 
return CThreadSer ver : : Exi tins tance ( ) ; 

) 

BEGIN_MESSAGE_MAP (CThreadProcessor , CThr eadSer ver ) 

//{ iAFX__MSG Jik? (CThreadProcessor J 

•' n'Ck - ClASi-Ki ZArti will add and remove mapping macros here. 

//} }af:-:_msg_map 

ON_THREAD_MESSAGE ( WMUSER_START , onStart) 
END_MESSAGE__MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CThreadProcessor message handlers 

LRESULT CThreadProcessor :: onStart (WPARAM wParam, LP ARAM lParam) 
{ 

setTimer (TIMER_PROCESS, 10000) ; 
return FALSE; 

} 

void CThreadProcessor :: onTimerlndex (int nldx) 
{ 

kill Timer (nldx ) ; 

switch (nldx) 
{ 

case TIMER_PROCESS: 

b r e a k ; 



default : 

break; 

) 
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x e t. u r n ; 

} 
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#if ! defined (AFX_THREADPROCESSOR_H BF8 2 357 1_E93B_1 1D3_B8 8C_CC7 92EOOO0O0 INCLUDED^) 

#define AFX_THREADPROCESSOR_H BF8 2 3 5 7 1_E 93B_1 1 D3_B8 8C_CC7 92E0 0 0 00 0 INCLUDED_ 

Hinclude " threadServer . h " 



#if _MSC_VER > 1000 
jfpragma once 

flendif // J45C_VER > 1000 

// t bread Process or . h : header rile 

// 

////// ///////////////////;//// ////////// 

// CThreadProcessor thread 

class CThreadProcessor : public CThreadServer 
{ 

DECLARE_DYNCREATE (CThreadProcessor) 
publ ic : 

CThreadProcessor {) ; 

// Attributes 
public : 

// Operations 
publ ic : 

// Over r roes 

// ClassWizard generated virtual function overrides 
// ( { AFX_VIRTi.l?iXj fCTh read Processor } 
i-.a .: ; *; : 

vj • v. :.jaJ. B-';Oj :-v;.\ :.nst i-.v.CQ ! : ; 
vi • r .:a .!. • r.' E. \ - * '. a = a t » ; 

// 1 }af:<_v*2rtual 

// I nip I erne n r a t ion 
protected : 

v i r t ua 1 -CThreadProcessor ( ) ; 

// Generated i^essage map .functions 
/ / { { A F X JA 5 G ( C T h r e a d ? r o c e s s o r } 

•■* NOTE - • iC. ■.' I a W j.. ;:ar d wili add and re mo'-'e !ft':irbc:L t ui:c t :.. c : \ s h- r ' . 
/ / \ } AFX__HSG 

DECLARE_MESSAGE_MAP { ) 

pr o tec ted : 

enum { TIMER_PROCESS, TIMER_MAX }; 

UINT m_pnTimers [ TIMER_MAX ] ; 

LRESULT onStart (WPARAM wParam, LP ARAM lParam); 

virtual void onTimer Index ( in t nldx) ; 

} ; 

////////////// // //////// ///////// //////////////////////////////////////////// 

//{ {AFX_IMSERT ^LOCATIONS } 

// Pi;, crjfoi \ ":^^a; i wiiJ in^erL aden ta c-iia ! declaration:: .iiur-eo. : att : y b-;o;. ;;:e , ^ 
r; ; « \ j en, * .', , 

fi*-ad::.f // ! -'i c ! - i*. c. : ; ' V * T Fi R E A T ■ P Fi O £ S S C p H B F i* .? "i h " 1 E 9 .:■ R I I P '. v ; B-S^-V t '.: ; 0 .'' r -f . '■ ■ S- ; tat tt^i; ; 



C:\Documents and Settings\billyhe\My . . . LCServices\LCKioskServer\threadReceiver . cpp 1 

// threadReceiver . cpp : implementation file 
// 

#include "stdafx.h" 
#include " lckioskserver . h" 
#include 11 threadReceiver . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

Static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CThreadReceiver 

IMPLEMENTED YNCREATE { CThreadReceiver , CThreadServer ) 
CThreadReceiver : : CThreadReceiver ( ) 

useTimers (m_pnTimers ( TIMER_MAX) ; 



CThreadReceiver : : -CThreadReceiver ( ) 



BOOL CThreadReceiver: : Init Instance { ) 

// TODO: perform and per -thread initialization here 
return TRUE; 



int CThreadReceiver: : Exitlnstance { ) 

// TODO: perform any per- thread cleanup here 
return CThreadServer: : Exit Instance () ; 



BEGIN_MESSAGE_MAP (CThreadReceiver, CThreadServer) 

//{ {AFXMSGJtfAP (CThreadReceiver) 

// NOTE - the ClassWizard will add and remove mapping macros here. 
//} }AFX_MSG__MAP 

ON_THREAD_MESSAGE ( WMUSER_START , onStart) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CThreadReceiver message handlers 

LRESULT CThreadReceiver :: onStart (WPARAM wParam, LP ARAM lParam) 
{ 

setTimer (TIMER_RECEIVE, 30000) ; 
return FALSE; 

} 

void CThreadReceiver :: onTimerlndex ( int nldx) 

{ 

killTimer (nldx) ; 

switch (nldx) 
{ 

case TIMER_RECEIVE : 

default: 

break; 

> 



return ; 
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#if ! defined ( AFX_THREADRECEIVER__H BF8 235 7 0_E93B_11D3__B8 8C_CC7 92E00000 0 INCLUDED_) 

# define AFX_THREADRECEI VER_H BF8 2357 0_E93 B_l 1 D3_B8 8C__CC7 92E00O00O INCLUDED_ 

^include " threadSer ver . h " 

#if _MSC_VER > 1000 
#pr agma once 

iendif // _MSC__VER > 1000 

// thr eadReceiver . h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// CThreadReceiver thread 

class CThreadReceiver : public CThr eadSer ver 
{ 

DECLARE_DYNCREATE (CThreadReceiver ) 

public : 

CThreadReceiver ( ) ; 

// Attributes 
public : 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
//{ { AFX_VI RTUAL {CThreadReceiver} 
public : 

virtual BOOL Ini t Ins tance ( ) ; 
virtual int Exit Instance () ; 
//} }AFX_VIRTUAL 

// Implementation 
protected : 

virtual -CThreadReceiver () ; 

// Generated message map functions 
//{ {AFX_MSG (CThreadReceiver) 

// NOTE - the ClassWizard will add and remove member functions here. 
//} }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

protected : 

en urn { TIMER_RECEIVE, TIMER_MAX }; 
UINT m_pnTimers [ TIMER_MAX ] ; 

LRESULT onStart (WPARAM wParam, LPARAM lParam); 
virtual void onT i me r Index ( int nldx) ; 

}; 

///////////////////////////////////////////////////////////////////////////// 

// { { AFX_INSERT_LOCATION } } 

// Microsoft Visual C++ will insert additional declarations immediately before the ^ 
previous line . 

#endif // [defined (AFX THREADRECEI VER H BF823570 E93B 11D3 B88C CC792EOO00OO INCLUDED ) 
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Mi i ! defined ( AFX_THREADRECEIVER_H BF8 2 3 5 7 0_E 93B_1 1 D3_B8 8C__CC7 92EO0OO00 INCLUDED^) 

if define AFX_THREADRECEIVER_H BF8 2 35 7 0_E93B_1 1 D3_B8 8C_CC7 92 EO 0 0 0 00 INCLUDED_ 

§ include " threadServer . h " 

Uf _MSC_VER > 1000 
# pragma once 

ffendif // _MSC_VER > 1000 

// th r e s dRe cei v er . h : header file 

///////////////// //////////////////////////// ////////////// ///////// ///////// 
// CThreadReceiver thread 

class CThreadReceiver : public CThreadServer 
{ 

DECLARE_DYNCREATE (CThreadReceiver) 

public : 

CThreadReceiver ( ) ; 

// Attributes 
public : 

// Operations 
public : 

// Overrides 

// ClassWisard generated virtual function overrides 
// [ (AFX^VIRTUAL (CThreadReceiver^ 
s ; I r : 

v ir'.jai £OO.L : a : 1 1 ns a r: c e ■ ; 
«.' i r : j r. t; ' a '. ' '. as h .vat-.- ; j ; 

// ; } af:-;_vi rtual 

/ / Implementation 
protected: 

virtual -CThreadReceiver { ) ; 

// Generated ir-esoacie nap functions 
// { iAF>:_MSG {CThreadReceiver } 

// NOTE ■■ tnc C i asaWi :a» a w i. I. 1 add and rcr-ie-va u-c irb-: ur:ct .v. h-v . 
/ / j }AF/._MSG 

DECLARE_MESSAGE_MAP { ) 

protected: 

enum { TIMER_RECEIVE, T I ME R_MAX }; 
UINT m_pnTimers [TIMER_MAX] ; 

LRESULT onStart (WPARAM wFaram, LPARAM iParam); 
virtual void onTimer I ndex ( i n t nldx); 

} ; 

/////////////////////////////////////// 
/ / { { hFX_IHSERT_LOCATION } ;• 

/ / v r ci fx J C - + i [ .] i r <i e r t a dd i 1 on -a 1 d e o 1 a r a r. .i a n a n.n. e d i a i. e ; y I: e r ■" • - t i a / 

Or rriMj ; inc. , 

#*:n:i: i // ! <U i ± ravd < AFX 1 HI'SADP.LCEI VFP H BFt 2 3 f: 7 0 E 9 i 3 '.. IDa E;>' -v: a iXa-OC a' M •01. CLE a 
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If if ! defined (AFX_THREADSERVER_H BF8 2 35 6F_E9 3B_1 1D3_B8 8C_CC7 92E0O0OO0 INCLUDED 

ff define AFX_THREADSERVER_H BF8 235 6F_E93B_1 1D3_B8 8C__CC7 92E000000 INCLUDED^ 

lit _MSC_VER > 1000 
#pragma once 

Sendif // _MSCJ.'ER /- 1000 

// threadServer . h : header file 



/////////////////////////////////////////////////// ////////////////////////// 
// CThreadServer thread 

class CThreadServer : public CWinThread 
{ 

DECLARE_DYNCREATE (CThreadServer) 

protected : 

CThreadServer () ; // protected constructor used by dynamic crest: isn 

//' Attributes 
public : 

/ / Operations 
public : 

/ / Over rides 

// ClassWi card generated virtual function ever r ides 
/ / { (AFX VIRTUAL iCThr e ad Serve r } 
public : 

VlrlUdl L'^. J Isti-.'I'iel.rtJl'Vpil ; 

v ixx. u a I. ~.l r. ;." ?../ : : »; : n s c a v- c t.- { ; ; 
// I j AFX __ VIRTUAL 

// Implement at ion 
protected : 

virtual -CThreadServer ( } ; 

// Genera Led message map functions 
//{ { A ?>".__ (CThreadServer) 

// NO'"'-- - t '.-<■ •::.] as.?W i rard wi;l ado *v o r«.-*v.'« « • ■ ■ 

//* } AFX_MSG 

DECLARE_MESSAGE__MAP { ) 

protected : 

static CCri ticalSection m_sync; 

UINT * m_pnTimers; 
int m__nMaxTimers; 

LRESULT onTimer (WPARAM wParam, LPARAM lParam); 
int getTimer Index (UINT nTimerld) ; 
void killTimer ( in t nTimerldx); 

void useTimer s ( UINT * pnTimers, int nMaxTimers) ; 

void setTimer ( in t nTimerldx, unsigned long iMilliSecs); 

virtual void onTimer Index { in t nldx) ; 

public : 

static string m_strWndClass; 

} ; 

////////////////////////////////;///////// 

// { { AFX_INSERT_LGCATION} S 

// Hi a osofv '* > sue ] will, -insert c.c'cii j :;r. . : :< . . ■■ i c 1st.-: * «* u-t ? t :■ 
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fteflCilf // !-ief infefi (AFX THRKAE'SF.PVi- H V- " • ■ r _F f j?F .. D v *- - ' C " ■ ,'YX-K : .yy>; I NCI, 1 :F.r: • 
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// threadSei'ver . cpp : implementation file 



Kinclude "stdafx.h" 
Hnclude "lckioskserver . h M 
^include "threadServer . h" 

#ifdef _DEBUG 
fldefine new DEBUG_NEW 
Hundef THI S_FI LE 

static char THIS_FILE[] = FILE ; 

fiend if 

string CThreadSer ver : : m_s t rWndClass ; 
CCriticalSection CThreadServer : : m_sync ; 

////////////////////////////////////// //////////////////. -'/////// ///////////// 
// CThreadServer 

IMPLEMENT_DYNCREATE (CThreadServer , CWinThread) 

CThreadServer: : CThreadServer {) 
{ 

m_pnTirners = NULL; 
m__nMa>: Timer s = 0; 

} 

CThreadServer: : -CThreadServer () 

{ 

) 

BOOL CThreadServer : : I nit Instance ( ) 
{ 

m_sync . Lock ( ) ; 

if (m_s trWndClass . size ( ) == 0) 

m_s trWndClass = Af xRegis terWndCla s s ( 0 ) ; 
m_sync . Unlock ( ) ; 

return TRUE; 

} 

int CThreadServer :: Exit Instance ( ) 
{ 

// TO DO : perform any per -thread cleanup here 
return CWinThread : : Exit Inst a nee { ) ; 

} 

BEGIN_MESSAGE_MAP (CThreadServer, CWinThread) 

//'{ ( AF>*._MSG_HAP (CThreadServer ) 

ONJTHREADJ1ESSAGE ( WM__TIMER, onTimer) 
END_MESSAGE_MAP () 

LRESULT CThreadServer : :onTimer (WPARAM wParam, LPARAM lParam) 
{ 

onTimer Index ( getTimer Index (wParam) ) ; 
return FALSE; 

} 

void CThreadServer :: onTimerlndex { int nldx) 

{ 

} 

int CThreadServer :: getTimer Index (UINT nTimerld) 
{ 

for (int i = 0; i < m_nMaxTimer s ; i++) 
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{ 

if (nTimerld == m_pnTimer s [ i ] ) 

return i ; 

} 

return -1; 

} 

void CThreadServer : : killTimer (int nTimerldx) 
{ 

ASSERT (nTimerldx >= 0 && nTimerldx < m_nMaxTimer s ) ; 

KillTimer (NULL, m_pnTimers [nTimerldx] ) ; 
rn_pnTimers [nTimerldx] = 0; 

r etur n ; 

} 

void CThreadServer :: setTimer ( int nTimerldx, unsigned long IMilliSecs) 
{ 

ASSERT (nTimerldx >= 0 & & nTimerldx < m_nMaxTimer s ) ; 

if (m_pnTimers [nTimerldx] ) 

KillTimer ( NULL, m_pnTimers [nTimerldx] ) ; 

m_pnTimers [nTimerldx] = SetTimer ( NULL, 0, IMilliSecs, NULL); 

return; 

} 

void CThreadServer :: useTimers (UINT * pnTimers, int nMaxTimers) 
{ 

m_pnTimers = pnTimers; 
m_nMay.Timer s = nMaxTimers; 

memset (m_pnTimer s , 0, m_nMaxTimers * sizeof (UINT) ) ; 
retu rn ; 

} 



